19-02-20, 09:47 AM
صباح الخير
انا اسف على الازعاج جربت نفس الاكود وطلع خطا في الكود التالي كمافي الصوره
ممكن تجرب من عندك وتشوف وشكراً لك يااخي وعلى جهودك واراك على خير وعافيه .
انا اسف على الازعاج جربت نفس الاكود وطلع خطا في الكود التالي كمافي الصوره
كود :
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
ممكن تجرب من عندك وتشوف وشكراً لك يااخي وعلى جهودك واراك على خير وعافيه .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.