+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض id و العنصر قي اللستة (/showthread.php?tid=17227)
عرض id و العنصر قي اللستة - atefkhalf2004 - 08-09-16
استخدم الكود التالي لاضافة العناصر في اللستة
كيف يتم عرض العنصر المحد
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"
شكرا
RE: عرض id و العنصر قي اللستة - ممدوح - 09-09-16
ربط 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"))
NextRE: عرض id و العنصر قي اللستة - atefkhalf2004 - 09-09-16
وكيف اعرض العنصر الذي تم اختياره
شكرا
شكرا للحل تم استبدال اسم العمود وتم العرض
لكن ما الخطأ في التعبئة الاولي
وكيف يتم العرض منها وهو المطلوب
شكرا مرة اخري
انتظر الرد