Bonjour,

j'utilise ce code dans l'événement textchanged ,pour afficher la liste des codes qui contient '3' dans le textbox1, mais quand je tape '3' dans le textbox1 rien n'est afficher

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Private Sub textbox1_TextChanged(sender As Object, e As EventArgs) Handles textbox1.TextChanged
        c = New connexion
        cn = c.ConnecterSte
        da4 = New SqlDataAdapter("select *  from TSociete where CSociete like '%" & textbox1.Text & "%' order by CSociete", cn)
        c.ds3.Clear()
        da4.Fill(c.ds3, "tabTSTE")
        Dim col1 As New AutoCompleteStringCollection
        Dim m As Integer
        For m = 0 To c.ds3.Tables("tabTSTE").Rows.Count - 1
            MsgBox(c.ds3.Tables("tabTSTE").Rows(m)(0).ToString())
            col1.Add(c.ds3.Tables("tabTSTE").Rows(m)(0).ToString())
        Next
        textbox1.AutoCompleteSource = AutoCompleteSource.CustomSource
        textbox1.AutoCompleteCustomSource = col1
        textbox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
 
    End Sub
Merci d'avance.