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

اخواني اعضاء المنتدى الكرام ... تحيه طيبه وبعد

سؤالي بخصوص ال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 + "'"

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

Incubus