Jag fyller en lista med data och vill styra list index med data idnr som är av typen long. "För att flytta eller markera i list, så man vet vilken post det är i db." prova att använda det här när du lägger till: Du kanske har användning av dessa två funktioner:vb: List1.ItemData(List1.NewIndex) = tempRs!idnr ?
Den här varianten funkar inte! "Det blir 0.1.2 -->"
List1.ItemData(List1.NewIndex) = tempRs!idnr
Tror problemet är att list box vill ha ett stigande värde????
Vänligen /PerSv: vb: List1.ItemData(List1.NewIndex) = tempRs!id
.additem "text", rsData!ID
tror ifs att alla positioner måste finnas innan .. Sv: vb: List1.ItemData(List1.NewIndex) = tempRs!id
Public Sub ItemDataSelect(List As ListBox, ItemData As Long)
Dim Index As Long
For Index = 0 To List.ListCount - 1
If List.ItemData(Index) = ItemData Then
List.ListIndex = Index
Exit Sub
End If
Next
List.ListIndex = -1
End Sub
Public Sub LoadList(List As ListBox, rsTemp As Recordset, ItemData As String, ItemText As String, Optional Value As Long)
Dim fldItemData As Field
Dim fldItemText As Field
Set fldItemData = rsTemp(ItemData)
Set fldItemText = rsTemp(ItemText)
List.Clear
If Value Then
Do Until rsTemp.EOF
List.AddItem "" & fldItemText.Value
List.ItemData(List.NewIndex) = fldItemData.Value
If fldItemData.Value = Value Then
List.ListIndex = List.NewIndex
End If
rsTemp.MoveNext
Loop
Else
Do Until rsTemp.EOF
List.AddItem "" & fldItemText.Value
List.ItemData(List.NewIndex) = fldItemData.Value
rsTemp.MoveNext
Loop
End If
End Sub