تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل]حفظ بيانات listbox
#31
من غير ربط ونفس الكود الاخير تظهر هذه الرسالة
إقتباس :Conversion from string "tn" to type 'Integer' is not valid.

طيب عرفنا الاشكال بقى شلون نعرف(بالكود طبعا) هل الاداة مربوطة ام لا؟؟ وبناءا على هذا نكتب الكود المناسب. . .
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#32
الان هذا هو كل الكود
كود :
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

التحقق هل الاداة تملك مصدر بيانات ام لا وبناء على النتيجة يتم اختيار الكود المناسب .... شكر الله لكم جميعا اخواني.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#33
كود :
For Each itm In ListBox1.SelectedItems
            ListBox2.Items.Add(ListBox1.GetItemText(itm))
        Next
الرد }}}
تم الشكر بواسطة:
#34
VB6DAO كتب :
كود :
For Each itm In ListBox1.SelectedItems
            ListBox2.Items.Add(ListBox1.GetItemText(itm))
        Next
صباح الخير .. خلصنا.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#35
كود :
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
الرد }}}
تم الشكر بواسطة:
#36
الكود هنا
المثال هنا
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#37
(24-08-13, 12:13 AM)سعود كتب : ابشركم لقيت الحل هذا هو
كود :
       For Each itm In ListBox1.SelectedItems

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

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

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

هذا الكود يشتغل معاك انشاء الله
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

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال حول منع تكرار بيانات عند تعديلها justforit 1 96 07-05-24, 12:09 AM
آخر رد: justforit
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 768 07-11-23, 08:27 AM
آخر رد: justforit
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 552 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 683 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,044 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,824 07-11-22, 10:27 PM
آخر رد: Am7
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,642 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  كيف افتح قاعة بيانات اكسس بسام محمدغانم 1 1,414 04-10-21, 02:52 AM
آخر رد: اسلام الكبابى
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 968 07-09-21, 04:36 PM
آخر رد: bassant
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 1,949 31-08-21, 04:47 AM
آخر رد: a7med saba

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم