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
29-09-13, 11:59 PM (آخر تعديل لهذه المشاركة : 29-09-13, 11:59 PM {2} بواسطة Abdullah0991.)
في هذه الحالة يجب ان يقوم البرنامج بإضافة قيم للعمود الاول ,, ثم نقل البيانات إلى العمود الثاني والثالث
قم بتغيير كود زر النقل ليصبح الكود هكذا:
كود :
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 او اضيف اليها انا تاية في الاكواد دية
يعني كيف احدد الاعمدة التي اريد ان ينتقل اليها البيانات بالكود الثاني
مشكور جدا ابو رائد علي المعلومات التي طرحتها ولكن انا اعلم الاضافة وانا فهمت الطريقة للنقل الي عمود احددة
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
انا لدي استفسار في نفس الاطار انا حاولت بالكود انقل لليست فيو اخر ولكن لم ينفع لادري لماذا يعني العمود هنقلة من اليست فيو الاول الخاص
بالمبيعات الي اليست فيو الثاني الخاص بالمشتريات الي اليست فيو الثالث الخاص الارباح والخسائر والمخزون
انا كدة قمت بالخطوة الاولي اريد نقلة من ليست فيو 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
في رأيي (وقد أكون مخطأ) أن مسألة نقل البيانات بين الأدوات بهذه الطريقة غير صحيحة ولا تدل على من يتبعها أنه شخص فاهم يعني برمجة بيانات حسابية يترتب عليها أموال، والمفروض القيام بعرض البيانات في كل أداة من قاعدة البيانات حتى لو كان فيها عمليات حسابية.