1 för >
Privat lstUserName_SelectedIndexChanged under (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar lstUserName.SelectedIndexChanged Dunkel selectrow som DataRow Försök Om _loaded = 1 därefter selectrow = Ds.User.Select (”UserID =” & CInt (lstUserName.SelectedValue))(0) cbAccessLevel.SelectedValue = selectrow. Objekt (”kolonn”) ',--Detta är var det vredesutbrott MessageBox.Show (selectrow. Objekt (”kolonn”) .ToString) Avsluta om Fånga före detta som undantag MsgBox (före detta. Meddelande) MsgBox (lstUser.SelectedIndex.ToString + ”och” + lstUserName.SelectedIndex.ToString) Avsluta försök Avsluta Sub<-/pre>
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Om LstUserName.SelectedIndex>-1 därefter Dunkelt objekt som anmärker Dunkelt index som heltal item=LstUserName.Selected.item () index=LstUserName.Items.IndexOf (objekt) LstUserName.SelectedIndex=index cbAccessLevel.SelectedItem=Item Avsluta om