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

الصفحات : 1 2 3 4

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

إقتباس :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

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

كود :

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

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

كود :

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

الصفحات : 1 2 3 4