+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] كيف أستطيع منع التكرار في ComboBox (/showthread.php?tid=23923)
كيف أستطيع منع التكرار في ComboBox - AL - WafaaPro - 20-02-18
بسم الله الرحمن الرحيم
أخوتي الكرام
كيف أستطيع منع التكرار في ComboBox
حيث أن الـ ComboBox مربوطة بقاعدة بيانات أكسس
و العمودة المربوطة فيه يحتوي على أسماء
و في هذا العمود التكرار مسموح
كيف أستطيع جعل الـ ComboBox تعرض الاسم المكرر مرة واحدة فقط
و لكم جزيل الشكر
في المرفقات مثال بسيط للتعديل و المساعدة
RE: كيف أستطيع منع التكرار في ComboBox - khodor1985 - 21-02-18
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم التعديل على المشروع بناء لطلبكم
المشروع بعد التعديل عليه :
[attachment=17198]
الجملة المستهدفة في المشروع :
PHP كود :
Public SQLString As String = "SELECT FullName FROM TBLContact Group By FullName"
أتمنى لك التوفيق
RE: كيف أستطيع منع التكرار في ComboBox - AL - WafaaPro - 21-02-18
ألف ألف شكر أخي الكريم
جاري التجريب
النتيجة رائعة أخي الكريم
ألف ألف شكر
أخي هل من الممكن إضافة خاصية إكمال النص حسب المحفوظ داخل الـ ComboBox
يعني إذا كانت القائمة كبيرة و أنا أكتب اسم محفوظ مسبقا فيقوم بالتنبؤ به و اقتراحه
و لك كل الشكر
RE: كيف أستطيع منع التكرار في ComboBox - اسامه الهرماوي - 23-07-19
رد متأخر:
الكود:ضعة في نفس الحدث.
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