Auf meinen Formularen Ereignis laden lade ich eine Liste vonKunden aus SQL-Tabelle. In meinem aktuellen Status versuche ich, das Listenfeld zu durchlaufen und Zeilen aus meinem Datensatz hervorzuheben. Ich habe das, aber es funktioniert nicht. Was fehle ich?
For i = 0 To Me.ClientList.ListCount - 1
If Me.ClientList.Column(0, i) = rs.Fields(0) Then
Me.ClientList.Selected(i) = True
rs.MoveNext
End If
Next
Antworten:
0 für die Antwort № 1Was ich herausgefunden habe war, dass die Me.ClientList.ItemData
war Textwert und rs.Fields(0)
war int. Also benutze CInt
zu konvertieren und es wird richtig ausgewertet. Hoffe das hilft.
If CInt(Me.ClientList.ItemData(i)) = rs.Fields(0) Then
Me.ClientList.Selected(i) = True
rs.MoveNext
End If