تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد جمع عدد من الصفوف باليست فيو
#1
عندي ليست فيو اريد ان اجمع عدد من الصفوف بها يعني اريد مرة جمع اول عشرة صفوف وايضا نقلهم الي ليست فيو اخري

واريد جمع مرة اخري من الصف الخامس  الي الصف التاسع بنفس العمود ونقلهم ايضا

1         
2
3
4
5
6
7
8
9
10
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته


جرب هذا المثال قد يفيدك
كود :
Public Class Form1

   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

السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة: sooriaty03 , العزابي , mohammed moh
#3
(18-09-13, 02:24 AM)@@أبورائد@@ كتب : السلام عليكم ورحمة الله وبركاته


جرب هذا المثال قد يفيدك
كود :
Public Class Form1

   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

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

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


منور أخي أبو رائد 
أسأل الله أن يوفقك لكل خير ...

بالنسبة إلى السؤال
فأحب أن أضيف إضافة وهي الجمع
تفضل أخي هذا هو الكود

كود :
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'طريقة جمع كامل الصفوف
        Dim Total As Integer = 0
        For I = 0 To Me.ListView1.Items.Count - 1
            ' ListView1.Items(i) تعني نسخة من Clone
            Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
            Total += CInt(Me.ListView1.Items(I).Text)
        Next
        'طريقة جمع آخر خمسة صفوف
        Dim SubTotal As Integer = 0
        For I = 6 To Me.ListView1.Items.Count - 1
            ' ListView1.Items(i) تعني نسخة من Clone
            Me.ListView2.Items.Add(Me.ListView1.Items(I).Clone)
            SubTotal += CInt(Me.ListView1.Items(I).Text)
        Next
        MsgBox(Total)
        MsgBox(SubTotal)
    End Sub
End Class
الرد
تم الشكر بواسطة: @@أبورائد@@ , mohammed moh
#4
واللة يجماعة مش عارف اقول اية علي الا جابات المميزة دية لما لقيت المنتدي بة مشكلة في الدخول امس مش عارف المشكل فين حاولت بالكود دة ومشي الحال 

Dim ba As Integer
        Dim m_total As Double

        For ba = 1 To 3
            m_total += Convert.ToDouble(ListView8.Items(ba).SubItems(1).Text)

        Next ba

        TextBox34.Text = m_total
عقدت نفسي شوية بس مشي الحال

عندي سؤال اخر في نفس الموضوع لان مشكلتي بقاعدة فور اريد نقل المحتويات باليست فيو لاخر علي اساس اليوم الكمية المباعة خلال اسبوع لاعادة تفصيلها باليوم

http://www.4shared.com/rar/ZtzyoUtP/___online.html
الرد
تم الشكر بواسطة: @@أبورائد@@


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال اريد طريقه تفعيل الحمايه لبرنامج قمت بانشاءه وتحديد السيريال أبو علي1 3 44 أمس, 08:12 PM
آخر رد: sendbad100
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 6 110 23-06-18, 12:58 PM
آخر رد: 0theghost0
  [VB.NET] اريد فتح موقع معين اكتر من مرة لحسابات مختلفة او تبديل الكوكاييز باستخدام selenium d الماجيك مسعد 5 94 18-06-18, 04:37 AM
آخر رد: الماجيك مسعد
  [VB.NET] اريد طريقه لمنح المستخدم صلاحيه انشاء مستخدم علي البرنامج بنفسه مرة واحدة فقط dametucorazon 3 58 17-06-18, 04:29 AM
آخر رد: elgokr
Exclamation [سؤال] اريد كود او الطريقة التي تشغل البرنامج اوتوماتيك عند تشغيل الجهاز YousefOkasha 6 171 16-06-18, 04:44 PM
آخر رد: elgokr
  [VB.NET] اريد المساعد ميدو 4 624 13-06-18, 05:57 AM
آخر رد: ملهمـ
  اريد بعد ان اقوم بطباعة البيانات في PDF بعد ادخالها وحفظها وبتنسيق معين farah112233 16 328 10-06-18, 07:51 AM
آخر رد: عبدالله الدوسري
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 9 262 06-06-18, 09:23 PM
آخر رد: issamsaidd
  [سؤال] اريد كود اظهار الفرق بين التاريخن issamsaidd 13 248 06-06-18, 09:22 PM
آخر رد: issamsaidd
  ارجوكم اريد كود يعمل فواصل بين الارقام بشيراحمدالاهدل 2 64 06-06-18, 06:21 PM
آخر رد: بشيراحمدالاهدل

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


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