08-09-16, 11:49 PM
استخدم الكود التالي لاضافة العناصر في اللستة
كيف يتم عرض العنصر المحد
Dim dscom As New DataSet
Sql = "SELECT * FROM adcusmr order by cust_name "
'Sql = "SELECT * FROM adcusmr order by cust_name "
Dp = New OleDbDataAdapter(Sql, objconn)
Dp.Fill(dscom, "adcusmr")
objconn.Close()
If ComboBox1.Items.Count >= 1 Then
'ComboBox1.Items.Clear()
End If
CheckedListBox1.DataSource = dscom.Tables("adcusmr")
CheckedListBox1.DisplayMember = "cust_name"
CheckedListBox1.ValueMember = "cumcod"
شكرا
كيف يتم عرض العنصر المحد
Dim dscom As New DataSet
Sql = "SELECT * FROM adcusmr order by cust_name "
'Sql = "SELECT * FROM adcusmr order by cust_name "
Dp = New OleDbDataAdapter(Sql, objconn)
Dp.Fill(dscom, "adcusmr")
objconn.Close()
If ComboBox1.Items.Count >= 1 Then
'ComboBox1.Items.Clear()
End If
CheckedListBox1.DataSource = dscom.Tables("adcusmr")
CheckedListBox1.DisplayMember = "cust_name"
CheckedListBox1.ValueMember = "cumcod"
شكرا