24-08-13, 12:27 AM
كود :
If IsNothing(ListBox1.DataSource) Then For Each itm In ListBox1.SelectedItems
ListBox2.Items.Add(itm)
Next
Else
For Each itm In ListBox1.SelectedItems
ListBox2.Items.Add(itm("tn"))
Next
End If
سبب كتابة الكود الموضوع التالي:
[h=1][عنوان معدل]حفظ بيانات listbox[/h]