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

نسخة كاملة : نقل اعمدة من ليست فيو لاخر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا باستخدم اليست فيو بالعمليات الحسابية اريد نقل 2 عمود من ليست فيو 1 الي ليست فيو 2

اريد نقل العمود 2و 6 من ليست فيو 1 الي الاعمدة 4و5 باليست فيو 2

انا ارفقت ملف ورد لما اريد
هذا مثال بسيط:

المثـــــــال
المثال شغال وتمام بس فيةمشكلة

انا اسف اني هتعبك معايا

لما اليست فيو 2 مبيكونش فية بيانات بيظهر ERROR

For index = 0 To ListView1.Items.Count - 1
ListView2.Items(index).SubItems(3).Text = ListView1.Items(index).SubItems(0).Text
ListView2.Items(index).SubItems(4).Text = ListView1.Items(index).SubItems(1).Text
Next
والطبيعي ان اللا عمدة دية فارغةلان البيانات من الاعمدة باليست فيو الاول فما العمل وكيف تكون NULL

ERROR
InvalidArgument=Value of '0' is not valid for 'index'.
Parameter name: index
في هذه الحالة يجب ان يقوم البرنامج بإضافة قيم للعمود الاول ,, ثم نقل البيانات إلى العمود الثاني والثالث

قم بتغيير كود زر النقل ليصبح الكود هكذا:


كود :
For index = 0 To ListView1.Items.Count - 1
    ListView2.Items.Add("")
    ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(0).Text)
    ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text)
Next
مشكور جدا اخي عبد اللة المثال شغال بس في حاجات مش فاهمهة


انا فاهم الكود دة نقل العناصر من العمود الاول ب 1 الي العمود الرابع بليست فيو2
ListView2.Items(index).SubItems(3).Text = ListView1.Items(index).SubItems(0).Text

ولكن ماهذا
ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(0).Text​)

اين الاعمدة التي انقل اليها باليست فيو 2 العمود ال3و4و2و1 او اضيف اليها انا تاية في الاكواد دية

يعني كيف احدد الاعمدة التي اريد ان ينتقل اليها البيانات بالكود الثاني

وجزاك اللة خيرا علي الاكواد
السلام عليكم ورحمة الله وبركاته


أخي مازن...

أول شيء لازم تعرف من ماذا يتكون الـ ListView

تتكون من عناصر أساسية Items
وكل عنصر أساسي ممكن يحتوي بداخله عناصر أخرى تسمى عناصر فرعية SubItems

اذا كنت تريد إضافة عنصر أساسي للـ ListView تكتب هكذا
كود :
ListView1.Items.Add("عنصر أساسي جديد")

واذا كنت تريد إضافة عنصر فرعي لعنصر أساسي لازم نحدد العنصر الأساسي وبعدها نضيف العنصر الفرعي هكذا
كود :
ListView1.Items(3).SubItems.Add("عنصر فرعي جديد للعنصر الأساسي 3")



السلام عليكم ورحمة الله وبركاته
مشكور جدا ابو رائد علي المعلومات التي طرحتها ولكن انا اعلم الاضافة وانا فهمت الطريقة للنقل الي عمود احددة

For index = 0 To ListView1.Items.Count - 1
ListView2.Items.Add("") العمود الاول0
ListView2.Items(index).SubItems.Add("")العمود الثاني 1
ListView2.Items(index).SubItems.Add("")العمود الثالث 2
ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text) الرابع 3
Next

هل لوممكن النقل نفس العمود ل2 ليست فيو استخدم نفس الكود بس حصلت مشكلة صغيرة اني بيضيف لكل اعمدة ليست فيو 3 بالترتيب ااول فالثاني فالثالث وليس لواحد فقط
For index = 0 To ListView1.Items.Count - 1
ListView2.Items.Add("")
ListView2.Items(index).SubItems.Add("")
ListView2.Items(index).SubItems.Add("")
ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text)
ListView3.Items.Add("")
ListView3.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text)
Next
أظن ان الاخ العزيز ابو رائد ,, اجاب على سؤالك

اذا كان لديك اسئلة اخرى Idea تفضل !
انا لدي استفسار في نفس الاطار انا حاولت بالكود انقل لليست فيو اخر ولكن لم ينفع لادري لماذا يعني العمود هنقلة من اليست فيو الاول الخاص

بالمبيعات الي اليست فيو الثاني الخاص بالمشتريات الي اليست فيو الثالث الخاص الارباح والخسائر والمخزون

انا كدة قمت بالخطوة الاولي اريد نقلة من ليست فيو 1 الي ليست فيو 2 وليست فيو 3 وهو نفس العمود باليست فيو الاول

حاولت بهذة الخطوة اضافة الي ابداعاتك ولكن حصلت مشكلة انة في اليست فيو الثالث لما اضغط علي الزر اكثر من مرة ينقل العمود الي 2 لست و3

ليست ولكن ينقل الي الاعمدة المجاورة ايضا باليست فيو في 3 يعني لو هنقل الي العمود 2 في اليست 3 ينقل في 2 و3و4و5

كل ضغطة بنقلة لعمود اخر بس شغال مع ليست 2 كويس اوي

For index = 0 To ListView1.Items.Count - 1
ListView2.Items.Add("")
ListView2.Items(index).SubItems.Add("")
ListView2.Items(index).SubItems.Add("")
ListView2.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text)
ListView3.Items.Add("")
ListView3.Items(index).SubItems.Add(ListView1.Items(index).SubItems(1).Text)
Next

انا تعبتك عارف واسف مرة اخري
السلام عليكم ورحمة الله وبركاته


في رأيي (وقد أكون مخطأ) أن مسألة نقل البيانات بين الأدوات بهذه الطريقة غير صحيحة ولا تدل على من يتبعها أنه شخص فاهم يعني برمجة بيانات حسابية يترتب عليها أموال، والمفروض القيام بعرض البيانات في كل أداة من قاعدة البيانات حتى لو كان فيها عمليات حسابية.

(وقد أكون مخطأ)

السلام عليكم ورحمة الله وبركاته