[حريف برمجة]

الداتاقريدفيو1 يوجد بها صفوف ،، وتريد عند النقر على الصف ينقلها إلى الداتاقريدفيو2

'هذا السطر مهمته لو الداتاقريدفيو1 فارغة من الصفوف يتجاهل تنفيذ وتكملة الكود :

كود :

If DataGridView1.Rows.Count = 1 Or Nothing Then Exit Sub

'هذا الكود مهمته لو الداتاقريدفيو2 فارغة من الاعمدة يقوم بإنشاء الاعمدة كما هي في الداتاقريدفيو1 :
        

كود :

If DataGridView2.Columns.Count = 0 Then
           For Each cell As DataGridViewColumn In DataGridView1.Columns
               DataGridView2.Columns.Add(DirectCast(cell.Clone, DataGridViewColumn))
           Next
       End If

'هذا السطر مهمته ينقل الصف المحدد من الداتاقريدفيو1 إلى الداتاقريدفيو2

كود :

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