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

مرحبا اخواني
لدي ليست بوكس يظهر القيم من جدول في sql server database بالكود التالي

Dim DT As New DataTable

DT.Clear()
DT = CLS_CATEGORY_.SHOW_ITEME_BYGROUP(TXT_GUID.Text)
If DT.Rows.Count > 0 Then
ListBox1.DataSource = DT
ListBox1.DisplayMember = "NAME"
ListBox1.ValueMember = "GUID"

End If
إني احصل على قيمة العنصر المختار من الليست بوك بهذا الكود
TXT_ITEME_GUID.Text = ListBox1.SelectedValue.ToString()
كيف استطيع أن احصل على قيم العناصر المحددة في الليست بوكس في حال
تحديد أكثر من عنصر في الليست بوكس في نفس الوقت.

أفيدونا أفادكم الله.

كود :

For i = 0 To ListBox1.SelectedIndices.Count - 1

    Dim GUID = ListBox1.SelectedItems(i)("GUID").tostring

    Dim NAME = ListBox1.SelectedItems(i)("NAME").tostring

    MsgBox(GUID & ": " & NAME)

Next

[quote pid='152829' dateline='1575269049']

كود :

For i = 0 To ListBox1.SelectedIndices.Count - 1

    Dim GUID = ListBox1.SelectedItems(i)("GUID")

    Dim NAME = ListBox1.SelectedItems(i)("NAME")

    MsgBox(GUID & ": " & NAME)

Next

[/quote]

مشكور أخي العزيز لكن بواسطة هذا الكود يمكن اظهار Name فقط بينما الـ GUID لايمكن اظهاره فهو يعطي رسالة خطأ بعدم القدرة على تحويل الـGUID إلى تنسيق string

ولك مني كل الشكر

(02-12-19, 11:10 AM)smalw كتب : [ -> ]tostring
تم العتعديل

كلام دقيق مشكور أخي العزيز

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

ghias

smalw

ghias

ghias