احتاج مساعدة ضرورية لنقل 7 اعمدة من DataGridViwe متعددة في DataGridViwe واحدة فقط

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Public Cn As New OleDbConnection("provider=microsoft.Ace.oledb.12.0;data source=  " & Application.StartupPath & "\database.accdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.ColumnCount = 3
        DataGridView1.Columns(0).Name = "Code"
        DataGridView1.Columns(1).Name = "Sciences"
        DataGridView1.Columns(2).Name = "Mathematics"
        Dim row As String() = New String() {"1", "5", "10"}
        DataGridView1.Rows.Add(row)
        row = New String() {"3", "20", "30"}
        DataGridView1.Rows.Add(row)
        DataGridView2.ColumnCount = 3
        DataGridView2.Columns(0).Name = "Code"
        DataGridView2.Columns(1).Name = "Programming"
        DataGridView2.Columns(2).Name = "computerscience"
        DataGridView2.Rows.Add(row)
        row = New String() {"2", "40", "30"}
        DataGridView2.Rows.Add(row)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatabaseDataSet.SAVE1' table. You can move, or remove it, as needed.
        Me.SAVE1TableAdapter.Fill(Me.DatabaseDataSet.SAVE1)
        'TODO: This line of code loads data into the 'DatabaseDataSet.Reports1' table. You can move, or remove it, as needed.
        Me.Reports1TableAdapter.Fill(Me.DatabaseDataSet.Reports1)
    End Sub
    Private Sub Reports1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Reports1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DatabaseDataSet)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        SAVE1DataGridView.DataSource = Nothing
        SAVE1DataGridView.ColumnCount = 8
        SAVE1DataGridView.Columns(7).Name = "Date"
        For i As Integer = 0 To Reports1DataGridView.Rows.Count - 2
            SAVE1DataGridView.Rows.Add(Reports1DataGridView.Rows(i).Cells(0).Value, Reports1DataGridView.Rows(i).Cells(1).Value,
Reports1DataGridView.Rows(i).Cells(2).Value
)
            For u As Integer = 0 To DataGridView1.Rows.Count - 2
                If Reports1DataGridView.Rows(i).Cells(0).Value = DataGridView1.Rows(u).Cells(0).Value Then
                    SAVE1DataGridView.Rows(i).Cells(4).Value = (DataGridView1.Rows(u).Cells(1).Value)
                    SAVE1DataGridView.Rows(i).Cells(3).Value = (DataGridView1.Rows(u).Cells(2).Value)
                End If
            Next

            For G As Integer = 0 To DataGridView1.Rows.Count - 2
                If Reports1DataGridView.Rows(i).Cells(0).Value = DataGridView2.Rows(G).Cells(0).Value Then
                    SAVE1DataGridView.Rows(i).Cells(5).Value = (DataGridView2.Rows(G).Cells(2).Value)
                    SAVE1DataGridView.Rows(i).Cells(6).Value = (DataGridView2.Rows(G).Cells(1).Value)
                End If
                ' here new column for viewing date
                SAVE1DataGridView.Rows(i).Cells(7).Value = Date.Now.ToString("dd/MM/yyyy")

                ' for saving it you need create new field in Table

            Next

        Next

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        For i As Integer = 0 To SAVE1DataGridView.Rows.Count - 2
            Dim Cmd As New OleDbCommand("Insert into SAVE(code,name,class,Mathematics,Sciences,computerscience,Programming,dates)values(?,?,?,?,?,?,?,?)", Cn)
            If Cn.State Then Cn.Close()
            Cn.Open()

            Cmd.Parameters.AddWithValue("@code", SAVE1DataGridView.Rows(i).Cells(0).Value)
            Cmd.Parameters.AddWithValue("@name", SAVE1DataGridView.Rows(i).Cells(1).Value)
            Cmd.Parameters.AddWithValue("@class", SAVE1DataGridView.Rows(i).Cells(2).Value)
            Cmd.Parameters.AddWithValue("@Mathematics", Val(SAVE1DataGridView.Rows(i).Cells(3).Value))
            Cmd.Parameters.AddWithValue("@Sciences", Val(SAVE1DataGridView.Rows(i).Cells(4).Value))
            Cmd.Parameters.AddWithValue("@computerscience", Val(SAVE1DataGridView.Rows(i).Cells(5).Value))
            Cmd.Parameters.AddWithValue("@Programming", Val(SAVE1DataGridView.Rows(i).Cells(6).Value))
            ' here you should write values to new filed in Table
            Cmd.Parameters.AddWithValue("@Dates", Val(SAVE1DataGridView.Rows(i).Cells(7).Value))
            Cmd.ExecuteNonQuery()
        Next
    End Sub
End Class 