2 svar · 293 visningar · startad av OveRRidE
Hej på er, nu knåpar jag med Visual Basic igen.
Jag har en listbox som jag populerar från min databas såhär:
While Not objRs.EOF
frmMain.lstPlayers.AddItem objRs("player")
objRs.movenext
Wend
Om jag nu vill ha in kolumnen ID (som unikt id) för att sedan kunna hämta det igen när man klickar på något i listan, hur gör jag då? ListIndex och index verkar inte fungera.
Så här ungefär:
While Not objRs.EOF
frmMain.lstPlayers.AddItem objRs("player")
frmMain.lstPlayers.ItemData(frmMain.lstPlayers.ListCount - 1) = objRs("id")
objRs.movenext
Wend
Private Sub lstPlayers_Click()
MsgBox ("Id=" & lstPlayers.ItemData(lstPlayers.ListIndex))
End Sub
"The magic word" är alltså ItemData.
Tackar! :)