Privé Sub lstUserName_SelectedIndexChanged (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten lstUserName.SelectedIndexChanged
Schemerige selectrow als DataRow
Probeer
Als = 1 toen _loaded
selectrow = Ds.User.Select („User-id =“ & CInt (lstUserName.SelectedValue))(0)
cbAccessLevel.SelectedValue = selectrow. Punt („Kolom“) '--Dit is waar het - omhoog blaast
MessageBox.Show (selectrow. Punt („Kolom“) .ToString)
Eind als
Vangst ex als Uitzondering
Ex MsgBox (. Bericht)
MsgBox (lstUser.SelectedIndex.ToString + „en“ + lstUserName.SelectedIndex.ToString)
Het eind probeert
Het eind Sub |