''' <summary>

''' 合并datatable

''' </summary>

''' <param name="DataTable1">原dt</param>

''' <param name="DataTable2">追加的dt</param>

''' <remarks></remarks>

Private Function MergeDataTable(DataTable1 As DataTable, DataTable2 As DataTable) As DataTable

Dim newDataTable As DataTable = DataTable1.Clone()

Dim obj As Object() = New Object(newDataTable.Columns.Count - 1) {}

For i As Integer = 0 To DataTable1.Rows.Count - 1

DataTable1.Rows(i).ItemArray.CopyTo(obj, 0)

newDataTable.Rows.Add(obj)

Next

For i As Integer = 0 To DataTable2.Rows.Count - 1

DataTable2.Rows(i).ItemArray.CopyTo(obj, 0)

newDataTable.Rows.Add(obj)

Next

MergeDataTable = newDataTable

End Function