[djelloul]

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

[djelloul]

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

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

[ameerah]

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

كود :

For Each row As DataGridViewRow In DataGridView1.SelectedRows
    DataGridView2.Rows.Add(row.Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)
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 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 لأني أستفدت من الكود في شغله ثانية