'MergeTwoTables()
'It is desttable = srctable + desttable
Public Shared Sub MergeTwoTables(ByVal p_dt_srctable As DataTable, ByVal p_dt_desttable As DataTable)
Dim l_int_indexi As Integer
Try
'Loop through the source table and import all rows into the destination table.
For l_int_indexi = 0 To p_dt_srctable.Rows.Count - 1
p_dt_desttable.ImportRow(p_dt_srctable.Rows(l_int_indexi))
Next
Catch ex As Exception
'send the caught exception to the errorhandler
MsgBox(ex.Message)
End Try
End Sub
|