DataGridView转DATATABLE

Dim RptTable As New DataTable
     RptTable.Columns.Add("機台號碼")
     RptTable.Columns.Add("模號")
     RptTable.Columns.Add("模數")
     RptTable.Columns.Add("料別")
     RptTable.Columns.Add("生產數")
     RptTable.Columns.Add("訂單號碼")
     RptTable.Columns.Add("生產者")
     RptTable.Columns.Add("製程編號")
     RptTable.Columns.Add("不良數")
     RptTable.Columns.Add("單號")
     RptTable.Columns.Add("移交數量")
     RptTable.Columns.Add("開始日期")
     RptTable.Columns.Add("生產加總數")

     Dim i, j As Integer
     For i = 0 To DataGridView1.Rows.Count - 1
     RptTable.Rows.Add()
     For j = 0 To DataGridView1.Columns.Count - 1
     RptTable.Rows(i).Item(j) = DataGridView1.Rows(i).Cells(j).Value
     Next
     Next