تعبئة قريد فيو1 من قريد فيو 2 - نسخة قابلة للطباعة

تعبئة قريد فيو1 من قريد فيو 2 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعبئة قريد فيو1 من قريد فيو 2 (/showthread.php?tid=11654)

تعبئة قريد فيو1 من قريد فيو 2 - djelloul - 09-03-15

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام
لدي فورم به 2 قريد فيو
كملا من القريد فيو 1و2 لديهم نفس الأعمدة ref, prod, price
القريد فيو 1 مملوءة بقائمة الأصناف و الكمية والسعر
أريد ملأ القريد فيو 2 من القريد فيو1عن طريق الكود طبعا
ألف شكر

RE: تعبئة قريد فيو1 من قريد فيو 2 - djelloul - 09-03-15

السلام عليكم ورحمة الله تعالى وبركاته
تشكر أخي الكريم على اهتمامك بسؤالي
لكن ما قصدته ليس جلب كافة البيانات من القريد فيو 1 إلى القريد فيو 2 لكن جلب بعض الأسطر فقط
مثلا جلب نوع الصنف والسعر من القريد فيو 1
جلب الكمية من تكست بوكس

أرجوا أنن اكون قد وضحت لكم الفكرة الآن
شكرا لك مرة أخرى

RE: تعبئة قريد فيو1 من قريد فيو 2 - ameerah - 10-03-15

جرب هذه الطريقة

كود :

For Each row As DataGridViewRow In DataGridView1.SelectedRows

    DataGridView2.Rows.Add(row.Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)

Next

RE: تعبئة قريد فيو1 من قريد فيو 2 - العزابي - 10-03-15

كود :

 Dim c, t As Integer

        DataGridView2.Columns.Clear()

        For t = 0 To DataGridView1.Columns.Count - 1

            DataGridView2.Columns.Add(DataGridView1.Columns(t).Clone())

        Next

        For c = 0 To DataGridView1.Rows.Count - 1

            If DataGridView1.Rows(c).Cells(4).Value = True Then

                DataGridView2.Rows.Add(DataGridView1.Rows(c).Cells(0).Value, DataGridView1.Rows(c).Cells(1).Value)

                DataGridView2.Columns(2).Visible = False

                DataGridView2.Columns(3).Visible = False

            End If

        Next

أو

كود :

Dim c, t As Integer

     DataGridView2.Columns.Clear()

     For t = 0 To DataGridView1.Columns.Count - 1

         DataGridView2.Columns.Add(DataGridView1.Columns(t).Clone())

     Next

     For c = 0 To DataGridView1.Rows.Count - 1

         If Not IsDBNull(DataGridView1.Rows(c).Cells(3).Value) Then

             DataGridView2.Rows.Add(DataGridView1.Rows(c).Cells(0).Value, DataGridView1.Rows(c).Cells(1).Value, DataGridView1.Rows(c).Cells(2).Value, DataGridView1.Rows(c).Cells(3).Value)

             ' DataGridView2.Columns(2).Visible = False

             ' DataGridView2.Columns(3).Visible = False

         End If

     Next

طبعاً كل الشكر ل ameerah لأني أستفدت من الكود في شغله ثانية