Bonjour à tous.

J'essaye de remplir l'AutoCompleteCustomSource de deux zones de texte de mon formulaire, mais le problème est-ce que l'AutoCompleteCustomSource de la deuxième textbox reste egale au de la première!


Voilàmon code:
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
strSQL = "SELECT DISTINCT T_Huissiers.Huissier_nom " & _
                 "FROM T_Huissiers " & _
                 "ORDER BY T_Huissiers.Huissier_nom"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = PCEConn
        ObjetConnection.Open()
        ObjetCommand = New SqlCommand(strSQL)
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "T_Huissiers")
        ObjetDataTable = ObjetDataSet.Tables("T_Huissiers")
        For i = 0 To ObjetDataTable.Rows.Count - 1
            RowNumber = i
            txtHuissierIntitule.AutoCompleteCustomSource.Add(ObjetDataTable.Rows(RowNumber).Item(0).ToString)
        Next
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        'prenchimento do autocomplete huissier titre
        strSQL = "SELECT DISTINCT T_Huissiers.Huissier_titre " & _
                 "FROM T_Huissiers " & _
                 "ORDER BY T_Huissiers.Huissier_titre"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = PCEConn
        ObjetConnection.Open()
        ObjetCommand = New SqlCommand(strSQL)
        MsgBox(strSQL)
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "T_Huissiers")
        ObjetDataTable = ObjetDataSet.Tables("T_Huissiers")
        For i = 0 To ObjetDataTable.Rows.Count - 1
            RowNumber = i
            txtHuissierTitre.AutoCompleteCustomSource.Add(ObjetDataTable.Rows(RowNumber).Item(0).ToString)
            MsgBox(txtHuissierTitre.AutoCompleteCustomSource.Item(i))
        Next
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
Quelqu'un aurait quelque idée?
Merci d'avance