Mehrfachauswahl in Listenfeld einlesen

31/07/2008 - 10:32 von Herbert Fidesser | Report spam
Hallo NG,

mein Problem:
Ein Listenfeld (multiselect) enthàlt die IDs einer Tabelle.
Mit ItemsSelected ermittle ich die gewàhlten Eintràge und lege sie in
einem Textfeld einer Tabelle ab, wobei ich "/" als Trennzeichen
verwende (Beispiel "3/17/24").
Beim erneuten Aufruf des Listenfeldes will ich es mit diesen Eintràgen
vorbelegen, d.h., diese Sàtze sollen automatisch markiert sein.
Mit Selected und ItemData komme ich nicht weiter.
Wer weiß die Lösung?

Danke für Tipps
Gruß
Herbert
 

Lesen sie die antworten

#1 Herbert Fidesser
31/07/2008 - 13:11 | Warnen spam
Habe eine Lösung gefunden. Vielleicht interessiert es euch:
txt = meon Textstring (z.B. "7/16/3")
Do While Len(txt) > 0
If InStr(txt, "/") > 0 Then
txt1 = Left(txt, InStr(txt, "/") - 1)
txt = Mid(txt, InStr(txt, "/") + 1)
Else
txt1 = txt
txt = Null
End If
For i = 0 To Me.MeinListenfeld.ListCount - 1
If txt1 = Me!MeinListenfeld.ItemData(i) Then
Me!MeinListenfeld.Selected(i) = True
Exit For
End If
Next i
Loop

Ähnliche fragen