Dim Dt1, Dt2 as DataTable
'两个DataTable的赋值过程
Dim Dr as DataRow() = Dt1.Select()
For I as Integer = 0 To Dr.Length-1
'这样就把Dt1 合并到Dt2中了
Dt2.ImportRow(Dr(I))
Next
'两个DataTable的赋值过程
Dim Dr as DataRow() = Dt1.Select()
For I as Integer = 0 To Dr.Length-1
'这样就把Dt1 合并到Dt2中了
Dt2.ImportRow(Dr(I))
Next