عمل تكملة تلقائية من مدخلات مسبقة في القاعدة

في هذا الدرس طريقة لعمل تكملة مقترحة من خلال الإدخال السابق ع نفس الحقل لتسهيل وسرعة الإدخال

Public Sub autoComplete()
        Dim srSQL As String = "SELECT name FROM main ORDER BY sr;"
        CreateConn()
        Dim relateddata As New OleDbDataAdapter(srSQL, getConn)
        Dim TheSearchTable As DataTable = New DataTable
        OpenConn()
        relateddata.Fill(TheSearchTable)
        CloseConn()
        Me.setCombBox1(TheSearchTable)
                 End Sub
    Private Sub setCombBox1(ByVal table As DataTable)
        Dim i As Integer
        If Me.Txt_nam.InvokeRequired Then
            Dim s As New SetCombCallback1(AddressOf setCombBox1)
            Me.Invoke(s, New Object() {[table]})
        Else
            Me.Txt_nam.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            Me.Txt_nam.AutoCompleteSource = AutoCompleteSource.CustomSource
            If table.Rows.Count <> 0 Then
                For i = 0 To table.Rows.Count - 1
                    Me.Txt_nam.AutoCompleteCustomSource.Add(table.Rows(i).Item(0).ToString)
                Next i
            End If
        End If
    End Sub