[رضوان الجماعي]

(24-08-13, 12:13 AM)سعود كتب : ابشركم لقيت الحل هذا هو

كود :

       For Each itm In ListBox1.SelectedItems

           ListBox2.Items.Add(itm("tn"))
       Next

كلمة tn اسم عمود الاسماء
هذا وهي مربوطة الاداة بجرب واشوف من غير ربط شلون يصير الوضع

اخي الغالي هذا لكود يعمل في حال انك قمت بالربط عن طريق الداتاسيت بطريقت السحب ولافلات فقط

---

هذا الكود يشتغل معاك انشاء الله
For item As Integer = 0 To Checke_servis.CheckedItems.Count - 1

Checke_servis2.Items.Add(Checke_servis.CheckedItems(item))

ListBoxmony2.Items.Add(ListBoxmony.Items(item))
ListBoxnampr2.Items.Add(ListBoxnamper.Items(item))

Next