08-10-22, 06:55 PM
(آخر تعديل لهذه المشاركة : 08-10-22, 06:57 PM {2} بواسطة رضوان الجماعي.)
(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
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة .

