Copying records from datatable to datatable

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  Button1.Click

dsEmptyDatasetSP.Tables.Add(makeTable1)

dsEmptyDatasetSP.Tables.Add(makeTable)

 dtOriginalDataTable = dsEmptyDatasetSP.Tables(0).Copy  ‘copy into other table 

 dsEmptyDatasetSP.Tables(0).Merge(dsEmptyDatasetSP.Tables(1).Copy,  True)‘copying one datatable into some specific index table with dataset  

End Sub

Dim dsEmptyDatasetSP As New DataSet  

Dim dtOriginalDataTable As DataTable   

 Private Function makeTable() As DataTable  

 Dim result As New DataTable  

 For i As Integer = 0 To 1  

Dim dc As New DataColumn

dc.ColumnName =“Col”& i.ToString

dc.DataType =GetType(Integer)

Next

 For i As Integer = 0 To 5  

Dim dr As DataRow = result.NewRow

dr(0) = i

result.Rows.Add(dr) 

 Next 

Return  result  

End Function

Private Function makeTable1() As DataTable 

Dim result As New DataTable 

For i As Integer = 0 To 1   

 Dim dc As New DataColumn

dc.ColumnName =“Col”& i.ToString

dc.DataType =GetType(Integer)

 Next

 For i As Integer = 5 To 10  

 Dim dr As DataRow = result.NewRow

dr(0) = i

result.Rows.Add(dr)

Next

Return result  

End Function