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
Merci d'avance.
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
Partager