''' <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