[محمد مسافر]

صباح الخير

انا اسف على الازعاج جربت نفس الاكود وطلع خطا في الكود التالي كمافي الصوره

كود :

 Sub Autocomplete_TXT(FieldName As String, TableName As String, txtAutoComplete As TextBox)
        Dim Dt As New DataTable
        Dim Query As String = "Select " & FieldName & " From " & TableName & " order by " & FieldName & " "
        Dt = FillDataTable(Query)
        Dim DataSource As New AutoCompleteStringCollection
        For i As Integer = 0 To Dt.Rows.Count - 1
            DataSource.Add(Dt.Rows(i)(0).ToString)
        Next
        txtAutoComplete.AutoCompleteCustomSource = DataSource
        txtAutoComplete.AutoCompleteSource = AutoCompleteSource.CustomSource
        txtAutoComplete.AutoCompleteMode = AutoCompleteMode.SuggestAppend
    End Sub 
الكود الثاني في الـ Form
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Autocomplete_TXT("اسم العامود", "اسم الجدول", TXT_DiseaseName)
    End Sub

 ممكن تجرب من عندك وتشوف وشكراً لك يااخي وعلى جهودك واراك على خير وعافيه .