التكرار في الكومبوبوكس

هذا حل صعب قليلا ولكن مجرب:

أنشئ داتا ست وخزن محتويات الكومبو في جدول في الداتا ست وعند الاسترجاع يمكنك الترتيب (استخدمت في المثال: VS2008 + LING+XML)

		Dim i As Int16 = 0
			'SaveCB
			DS.TABEL1.Clear()
			Do While i < Me.ComboBox1.Items.Count
				DS1.TABEL1.AddBathsRow(ComboBox1.Items(i))
				i += 1
			Loop
			DS1.WriteXml("baths.xml")

			'ReadCB
			i = 0
			ComboBox1.Items.Clear()

			Dim LST As System.Collections.Generic.IEnumerable(Of String) = _
			From a In DS1.TABEL1 _
			Select a.Bathes _
			Distinct

			LST = LST.ToList
			Do While i < LST.Count 
				ComboBox1.Items.Add(LST(i))
				i += 1
			Loop

وفي حدث التحميل لا تنسى هذه الجملة (كأول مرة ستظهر رسالة خطأ لعدم وجود الملف)

			ReadTXTFiles_DS.ReadXml("baths.xml")

أيضاً طريقة أخرى

DataAdapter جديدة

DataSet جديد

وجملة SQL تستخدم فيها التجميع GROUP BY

مثال

Dim PersonName As String = "SELECT Name FROM Person GROUP BY Name"
Dim DAcbo As New OleDbDataAdapter(Person, Conn)
		Dim DScbo As New DataSet
		DAcbo.Fill(DScbo, "Person")

		Me.ComboBox2.DataSource = DScbo
		Me.ComboBox2.DisplayMember = "Person.Name"

جرب قد تنفع أيضاً

السلام عليكم ..

أي تكرار في الجدول يمكن تفاديه بإضافة كلمة DISTINCT إلى جملة الاستعلام التي ستكون مصدراً للكومبو

	
Dim dt As New DataTable
Dim strSQL As String

		 strSQL = "SELECT  DISTINCT MyField  FROM MyTable"


		 Dim da As New SqlDataAdapter(strSQL, CnStr)
		  da.Fill(dt)


		  MYComboBox.DataSource = dt

وإذا كانت قاعدة البيانات أكسس تغير الأدبتر إلى OleDbDataAdapter