[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

بالنسبة للإكمال التلقائي بالتاكست بوكس

إعتبار العمود رقم 5 المقصود بالبحث به ..

كود :

   Private Sub Auto_Complete_Lieu_Naissance()
       Dim Da As New OleDbDataAdapter("SELECT * From TBL_CINQUIEME", Conne_2020)
       Dim Dt As New DataTable
       Da.Fill(Dt)
       Dim DataSource As New AutoCompleteStringCollection
       For i As Integer = 0 To Dt.Rows.Count - 1
           DataSource.Add(Dt.Rows(i)(5).ToString)
       Next
       Me.TextEdit1.MaskBox.AutoCompleteCustomSource = DataSource
       Me.TextEdit1.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
       Me.TextEdit1.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
   End Sub

تحياتي واحتراماتي