Bonjour,
J'essaie d'adapter un script trouvé sur le net de remplissage d'une listebox. Le script fonctionne parfaitement, il affiche dans la listbox le nom et l'id de la ligne.
Je ne trouve pas comment faire pour afficher que le nom, et que le remplissage des cjamps concernés se fasse toujours...
Le code en déclaration :
Jusqu'a la pas de soucis je sait comment faire, c'est apres...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Public Sub DBremplirListe(ByRef LST As ListBox) 'remarquez le ByRef Dim cmd = New SQLiteCommand("SELECT ID,Nom FROM MYDATA ORDER BY Nom", CON) Dim DR As SQLiteDataReader = cmd.ExecuteReader LST.Items.Clear() While (DR.Read()) 'DR(1) est le nom DR(0) est ID 'LST.Items.Add(DR(1) & "-" & DR(0)) 'utilise le - pour la séparation. LST.Items.Add(DR(1)) End While DR.Close() End Sub
Le code de la listbox dans la form :
La je bloque ke n'arrive pas à supprimer le - sans tout faire planter ou alors sans pouvoir remplir les champs concerné sur le cilc.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.SelectedIndex = -1 Then Exit Sub Dim z As String = ListBox1.SelectedItem Dim p As Integer = z.IndexOf("-") 'utilise le - pour la séparation. Dim i As String = CInt(z.Substring(p + 1)) Dim TBL_mydata As m_MYDATA = DBgetMYDATA(i) txtNom.Text = TBL_mydata.Nom txtDivers1.Text = TBL_mydata.Divers1 txtLogin.Text = TBL_mydata.Login txtDivers2.Text = TBL_mydata.Divers2 txtPass.Text = TBL_mydata.Pass SelID = TBL_mydata.ID End Sub
Merci pour vos infos/aide.
Cordialement.
Partager