[atefkhalf2004]

استخدم الكود التالي  لاضافة العناصر في اللستة
كيف يتم عرض العنصر المحد

  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"



شكرا

[ممدوح]

ربط CheckedListBox1 يكون بشكل أبسط وبدون فتح الاتصال وغلقه

كود :

Dim Dp As New OleDbDataAdapter("SELECT * FROM adcusmr ORDER BY cust_name", objconn)
Dim dtcom As New DataTable
Dp.Fill(dtcom)

CheckedListBox1.DataSource = dtcom
CheckedListBox1.DisplayMember = "cust_name"
CheckedListBox1.ValueMember = "cumcod"

ومعرفة cumcod للعناصر المؤشر عليها يكون

كود :

For Each itm As DataRowView In CheckedListBox1.CheckedItems
    MsgBox(itm("cumcod"))
Next

[atefkhalf2004]

وكيف اعرض العنصر الذي تم اختياره
شكرا

---

شكرا للحل تم استبدال اسم العمود وتم العرض
لكن ما الخطأ في التعبئة الاولي
وكيف يتم العرض منها وهو المطلوب
شكرا مرة اخري
انتظر الرد