Combining/Merging DataTables 1

[1Data]

I need to combine 2 DataTables into 1..How can I do this. FYI I know about the merge for Datasets this won't work for what I need to do.

I thank you in advance..

 

[jbenson001]

You need to loop through each row of each data table and use the copy method.

Somthing like:

For i = 0 To YourDataTable.Rows.Count - 1
   YourNewDataTable.Rows.Add(YourDataTable.Copy.Rows(i))
Next

...

And another loop here for the second datatable.

Jim

 

[1Data]

Your the man Jim...thanks

 

[jbenson001]

No prolem

 

[1Data]

Jim what is i? Dim i As DataRow?

 

[jbenson001]

integer. you are looping through the rows from 0 to rowcount -1. The row collection is 0 based.

Dim i as Integer

 

[1Data]

For i = 0 To All.Rows.Count - 1
All2.Rows.Add(All.Copy.Rows(i))
Next

I get this exception?

This row already belongs to another table

 

[jbenson001]

Well it seems the row copy copyies the structure as well as the data and I think that is causing the problem. You can create some nasty nested loops to loop through each row and each column in each row and assing to the new data table.
What I did was to use a short cut. I used intermediary datasets and used them to merge the data.

''Add datatables to the datasets, one table per dataset.
   Dim ds1 As New DataSet
   ds1.Tables.Add(dt1)
   Dim ds2 As New DataSet
   ds2.Tables.Add(dt3)

''This is the final dataset with the merged rows.
   Dim dsNew As New DataSet
   dsNew.Merge(ds1)
   dsNew.Merge(ds2)

''Now create a final datatable from the final dataset.
   Dim dtNew As New DataTable
   dtNew = dsNew.Tables(0)

Jim