[مصمم هاوي]

(12-09-22, 01:54 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته عندي كومبوبوكس يوجد داخله مجموعة بيانات احيانا يوجد بها تشابه كثير أنا عاوز كود فلتره هذه البيانات؟

هذا كود مقتبس من مشروعي يمكنك التعديل عليه

كود :

   ' إفراغ الداتاقريدفيو من البيانات
       ColumnesName_Clear()

       ComboBox2.Items.Clear()
       Dim Sql_Str As String = "SELECT DISTINCT record From TBL_archives Where FillName = '" & ComboBox1.Text & "'"
   Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter(Sql_Str, con)
   Dim InfoTable As DataSet = New DataSet
       InfoTable.Clear()
       InfoAdapter.Fill(InfoTable, "TBL_archives")
       For Each rw As DataRow In InfoTable.Tables("TBL_archives").Rows
           ComboBox2.Items.Add(rw(0).ToString())
       Next