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 :
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
Jusqu'a la pas de soucis je sait comment faire, c'est apres...

Le code de la listbox dans la form :
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
La je bloque ke n'arrive pas à supprimer le - sans tout faire planter ou alors sans pouvoir remplir les champs concerné sur le cilc.

Merci pour vos infos/aide.

Cordialement.