[عنوان معدل]حفظ بيانات listbox - نسخة قابلة للطباعة

[عنوان معدل]حفظ بيانات listbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [عنوان معدل]حفظ بيانات listbox (/showthread.php?tid=9686)

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

[عنوان معدل]حفظ بيانات listbox - سعود - 24-08-13

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

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

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

[عنوان معدل]حفظ بيانات listbox - سعود - 24-08-13

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

كود :

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

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

[عنوان معدل]حفظ بيانات listbox - VB6DAO - 24-08-13

كود :

For Each itm In ListBox1.SelectedItems

            ListBox2.Items.Add(ListBox1.GetItemText(itm))

        Next

[عنوان معدل]حفظ بيانات listbox - سعود - 24-08-13

VB6DAO كتب :

كود :

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

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

[عنوان معدل]حفظ بيانات listbox - VB6DAO - 24-08-13

كود :

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

[عنوان معدل]حفظ بيانات listbox - سعود - 25-08-13

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

RE: [عنوان معدل]حفظ بيانات listbox - رضوان الجماعي - 08-10-22

(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