[محمد مسافر]

صباح الخير

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

كود :

 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

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

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

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

أخي الكريم محمد ..

هل قمت بتغيير اسم الجدول واسم الحقل بما هو موجود عندك ..

تحياتي

[Jounior_P]

[محمد مسافر]

اعذروني ياجماعه حاولت اغير اسم الجدول واسم الحقل ومازال نفس الخطا اذا امكن التعديل على المشروع وارساله اكون شاكراً لكم جميعاً لااني حاولت ومامشى الحال شكراً للاستاذ / عاصم شكراً للاستاذ / عبدالعزيز شكراً للاخ / Jounior_P شكراً لكل من ساعدني واخص بالشكر والتحيه الكبيره الاستاذ/ عاصم .



شكراً

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

رقم العمود المقصود بالإكمال التلقائي ..

تحياتي

[محمد مسافر]

مشكوررررر ين الاستاذ/ عبدالعزيز والاستاذ/ عاصم تحيــــــــــــــــــــــــــــــــــــــــــه كبـــــــــــــــــــيره