سالت قبل ذالك عن نقل وجمع عدد من الصفوف واجابني ابو رائد واخي سوريتي
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 3
' ListView1.Items(i) تعني نسخة من Clone
Me.ListView2.Items.Add(Me.ListView1.Items(i).Clone)
Next
End Sub
End Class
ولكن الكود ينقل كل الصفوف كيف انقل SUB ITEM
يعني انقل 10 صفوف بالعمود الثاني باليست فيو 1 الي العمود الثالث باليست فيو 2
السلام عليكم
تفضل اخي العزيز
كود :
Private Sub Button1_Click(sender As System.Object, e As EventArgs) Handles Button1.Click
Dim item As ListViewItem
For i = 0 To ListView1.Items.Count - 1
item = New ListViewItem()
item.SubItems.Add(ListView1.Items(i).SubItems(1))
ListView2.Items.Add(item)
Next
End Sub
انا هتعبك معايا شوية اخي سجاد انا دية باءذن في اخر المشاكل في اليست فيو وهو طلبي كلا تي
انا عندي ارقام مثلاباليست فيو1 اريد نقلها باليست فيو 2
1
2
3
سبت
4
5
6
حد
كيف انقلهم الي ليست فيو اخر كالاتي السبت عمود مستقل الاحد عمود مستقل
السبت العمود الاول الاحد العمود الثاني باليست فيو 2
1 4
3 5
4 6
السلام عليكم
تفضل اخي العزيز الكود بعد التعديل:
كود :
Private Sub Button1_Click(sender As System.Object, e As EventArgs) Handles Button1.Click
Dim item As ListViewItem
For i = 0 To ListView1.Items.Count - 1
item = New ListViewItem()
item.Text = ListView1.Items(i).SubItems(0).Text
item.SubItems.Add(ListView1.Items(i).SubItems(1))
ListView2.Items.Add(item)
Next
End Sub
باعتبار السبت اول عمود و الاحد ثاني عمود وباعتبار الاعمدة مضافة مسبقا
مشكور جدا اخي سجاد علي ردك ومتبعتك معايا ولكن الكود ينقل 2 عمود من ليست فيو 1 الي ليست فيو 2 وهذا جيد ولكن مااريدة غير ذاللك
انا اريد الاتي نقل من عمود 1 وهو الثاني باليست فيو الاول الي عمودين باليست فيو الثاني وليس من عمود الي عمود
عمود 2باليست فيو الاول بة وليكن 20 عنصر اريد نقل من 0 الي 7 للعمود الاول باليست فيو 2
عمود 2 باليست فيو الاول بة وليكن 20 عنصر اريد نقل من 8 الي 15 للعمود الثالث باليست فيو 2
عمود 2 باليست فيو الاول بة وليكن 20 عنصر اريد نقل من 16 الي 20 للعمود الرابع باليست فيو 2
اي نفس العمود باليست فيو الاول
ارجو ان اكون وضحت قصدي وانا تهت في الاكواد
علما باني حاولت بالاكود دية لنقل جزئين من الموضوع بس فشلت الاكواد معي
Dim item As ListViewItem
For i = 0 To 7
For B = 10 To 13
item = New ListViewItem()
item.SubItems.Add(ListView8.Items(i).SubItems(1))
item.SubItems.Add(ListView8.Items(B).SubItems(1))
ListView2.Items.Add(item)
Next
Next
اخي العزيز
انا اعطيتك الطريقة
فكل ما عليك هو أن تفهم الكود وتطبقه حسب ماتريد
الاكواد مجربة, انا لا اضع كود او مثال الا وقد جربته
انا عارف الاكواد مجربة وشغالة 100 *100 اريد تعديل بسيط اذا سمحت اخي سجاد واتمني اني مكنش بتقل عليك
كود :
Private Sub Button1_Click(sender As System.Object, e As EventArgs) Handles Button1.Click
Dim item As ListViewItem
For i = 0 To ListView1.Items.Count - 1
item = New ListViewItem()
item.Text = ListView1.Items(i).SubItems(0).Text
item.SubItems.Add(ListView1.Items(i).SubItems(1))
ListView2.Items.Add(item)
تعديل اليست فيو 2 لعمود انا احددة فقط
Next
End Sub
الطلب هو نفس الكود ولكن اريد تحديد العمود الذي سيرسل لة البيانات في اليست فيو 2 لانة بيرسل لعمود مشابة للاول هذا اخر طلب مني