منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

ممدوح

atefkhalf2004