[ahmedbezia]

(15-11-17, 07:23 PM)Rabeea Qbaha كتب :

(15-11-17, 06:19 PM)ahmedbezia كتب :

(15-11-17, 06:11 PM)Rabeea Qbaha كتب : مرحبا اخي اذا كان قدك هو auto complete لعمود معين من قاعده البيانات 
هذا مثال يوجد فيه الطريقه ( يوجد فورم فيه ال DataGridView قم بتشغيل المشروع 
وفم بالضغط على زر new form سيظهر لك الفورم المحتوي على DataGridView .

مشكور اخي لم اجرب طلعلي مشكل إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي.

قم بالبحث في المنتدى لحل هذه المشكله فهي بيسطه

على كلن هذا هو الكود لكن ستكون الفكره اوضح في المثال :

كود :

Private Sub DataGridView1_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
       Dim header As String = DataGridView1.Columns(0).HeaderText

       If header.Equals("PART NUMBER") Then
           Dim text As TextBox = TryCast(e.Control, TextBox)

           If text IsNot Nothing Then
               text.AutoCompleteMode = AutoCompleteMode.Suggest
               text.AutoCompleteSource = AutoCompleteSource.CustomSource

               Dim data As AutoCompleteStringCollection = New AutoCompleteStringCollection
               addData(data)
               text.AutoCompleteCustomSource = data
           End If
       End If

   End Sub
   Private Sub addData(ByVal data As AutoCompleteStringCollection)
       'فحص الاتصال بقاعدة البيانات
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()

       Dim cmd As New OleDbCommand()
       cmd.Connection = con
       cmd.CommandText = "select part_no from price"
       Dim dr As OleDbDataReader = cmd.ExecuteReader
       While dr.Read
           data.Add(dr.Item(0))
       End While
       dr.Close()
       con.Close()
   End Sub

تسلم حبيبي لاكن المثال مو شغال معي

---

ممكن واح يساعد auto complete
علي الدتاقريد