+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في listbox (/showthread.php?tid=16613)
سؤال في listbox - Incubus - 28-07-16
اخواني اعضاء المنتدى الكرام ... تحيه طيبه وبعد
سؤالي بخصوص الlistbox
اريد وضع مجموعه من القيم قادمه من قاعده بيانات ويكون ليها valuemember بحيث لو المستخدم اختار عنصر من listbox استطيع ابحث في قاعدجه البيانات عن هذا المفتاح
اول شئ جربت listbox1.item.add
PHP كود :
Dim ddd As Integer = 0
For ddd = 0 To DSCRA.Tables("table1").Rows.Count - 1
Dim MyString = DSCRA.Tables("table1").Rows(ddd).Item("field1").ToString
Dim result = DateSerial(CInt(MyString.Substring(0, 4)), CInt(MyString.Substring(4, 2)), CInt(MyString.Substring(6, 2)))
CRA_ListBox.Items.Add((DSCRA.Tables("table1").Rows(ddd).Item("field2").ToString & (" في ") & result.Date.ToLongDateString & (" قيد ") & DSCRA.Tables("table1").Rows(ddd).Item("field3")))
Next ddd
ولكن لم يمكن ادخال value member مع كل عنصر في ال listbox
وعندما جربت الكود التالي باستخدام datasource , displaymember , valuemember
PHP كود :
Dim ddd As Integer = 0
For ddd = 0 To DSCRA.Tables("table1").Rows.Count - 1
CRA_ListBox.DataSource = DSCRA.Tables("company")
CRA_ListBox.DisplayMember = "number"
CRA_ListBox.ValueMember = "number0"
Next ddd
استطعت استخراج value member ولكني لم استطع وضع العناصر في listbox بالشكل المطلوب مني
----------------
سؤال اخر بخصوص التاريخ
قاعده البيانات التي اعمل عليها تخزن التاريخ على شكل ارقام بمعنى 2016/1/1 = 20160101
استخدمت المتغير result كما هو موضخ بالمثال الاول ولكن التاريخ يطهر بالمعكوس بمعنى 2016/01/01 => 01/01/2016
فاضطررت الى تغييرها الى 01 يناير 2016 longdate كي تظهر بالشكل الطبيعي مؤقتا
فهل من حل لديكم؟
اشكركم على مجهودكم في المنتدى
جزاكم الله كل خير
بخصوص السطر
CRA_ListBox.DisplayMember = "number"
ف number تعود الى جمله select :-
SelectString = "select * , field1+ ' ' + field2+ ' ' + field3 as number from company where field3 ='" + TextBox1.Text + "'"