[AL - WafaaPro]

بسم الله الرحمن الرحيم 

أخوتي الكرام 

كيف أستطيع منع التكرار في ComboBox

حيث أن الـ ComboBox مربوطة بقاعدة بيانات أكسس

 

و العمودة المربوطة فيه يحتوي على أسماء 

و في هذا العمود التكرار مسموح 

كيف أستطيع جعل الـ ComboBox تعرض الاسم المكرر مرة واحدة فقط 

و لكم جزيل الشكر 

في المرفقات مثال بسيط للتعديل و المساعدة 

[khodor1985]

السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم التعديل على المشروع بناء لطلبكم
المشروع بعد التعديل عليه :

  khodor1985 - Combobox 3 Solution.rar (الحجم : 206.31 ك ب / التحميلات : 379)

الجملة المستهدفة في المشروع :

PHP كود :

Public SQLString As String = "SELECT FullName FROM TBLContact Group By FullName" 


أتمنى لك التوفيق

[AL - WafaaPro]

ألف ألف شكر أخي الكريم 
جاري التجريب

---

النتيجة رائعة أخي الكريم
ألف ألف شكر 

أخي هل من الممكن إضافة خاصية إكمال النص حسب المحفوظ داخل الـ ComboBox

يعني إذا كانت القائمة كبيرة و أنا أكتب اسم محفوظ مسبقا فيقوم بالتنبؤ به و اقتراحه 

و لك كل الشكر

[اسامه الهرماوي]

رد متأخر:

الكود:ضعة في نفس الحدث.

Private Sub TextBox1_Changed(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.ClientSizeChanged
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New OleDbCommand("SELECT الحقل FROM الجدول", con)
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
ds.Clear()
da.Fill(ds, "list")
Dim col As New AutoCompleteStringCollection
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
col.Add(ds.Tables(0).Rows(i)(0).ToString())
Next
con.Close()
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteCustomSource = col
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
End Sub