[حافظ حافظ]

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

[سعود]

اكواد الفورم لود بعد التعديل

PHP كود :

       conn2018.open()
        Dim DepCom As New OleDbCommand("Select * From Factory", conn2018)
        Dim DepAdap As New OleDbDataAdapter(DepCom)
        Dim DepDT As New DataTable
        DepAdap.Fill(DepDT)
        DataGridView1.DataSource = DepDT
        Dim col As New DataGridViewCheckBoxColumn
        col.HeaderText = "تحديد"
        DataGridView1.Columns.Add(col) 


زر النسخ من 1 الى 2

PHP كود :

 DataGridView2.Rows.Clear()
        DataGridView2.ColumnCount = 4
        For r As Integer = 0 To DataGridView1.Rows.Count - 1
            Dim check As Boolean = CType(DataGridView1.Rows(r).Cells(4).Value, Boolean)
            If check = True Then
                Dim itm0 As String = DataGridView1.Rows(r).Cells(0).Value
                Dim itm1 As String = DataGridView1.Rows(r).Cells(1).Value
                Dim itm2 As String = DataGridView1.Rows(r).Cells(2).Value
                Dim itm3 As String = DataGridView1.Rows(r).Cells(3).Value
                DataGridView2.Rows.Add(itm0, itm1, itm2, itm3)
            End If
        Next 


[حافظ حافظ]

شكرا استاذ سعود.ربنا يكرمك ان شاء الله.هو المطلوب يعطيك العافية.