[سعود]

من غير ربط ونفس الكود الاخير تظهر هذه الرسالة

إقتباس :Conversion from string "tn" to type 'Integer' is not valid.

طيب عرفنا الاشكال بقى شلون نعرف(بالكود طبعا) هل الاداة مربوطة ام لا؟؟ وبناءا على هذا نكتب الكود المناسب. . .

[سعود]

الان هذا هو كل الكود

كود :

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

التحقق هل الاداة تملك مصدر بيانات ام لا وبناء على النتيجة يتم اختيار الكود المناسب .... شكر الله لكم جميعا اخواني.

[VB6DAO]

كود :

For Each itm In ListBox1.SelectedItems
            ListBox2.Items.Add(ListBox1.GetItemText(itm))
        Next

[سعود]

VB6DAO كتب :

كود :

For Each itm In ListBox1.SelectedItems
            ListBox2.Items.Add(ListBox1.GetItemText(itm))
        Next

صباح الخير .. خلصنا.

[VB6DAO]

كود :

For Each itm In ListBox1.SelectedItems
            If ListBox1.DataSource IsNot Nothing Then
                ListBox2.Items.Add(ListBox1.GetItemText(itm))
            Else
                ListBox2.Items.Add(itm)
            End If
        Next

[سعود]

الكود هنا
المثال هنا

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

(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