Dim table As DataTable=数据源
Dim table2 As DataTable=Nothing
table2=table.Clone()'复制table的结构(table.copy()为复制结构与数据）
For Each row As DataRow In table.Rows
table2.NewRow()
table2.ImportRow(row)'复制row到table2中
Next
或者
table2.Rows.Add(row)
Dim table As DataTable=数据源
Dim table2 As DataTable=Nothing
table2=table.Clone()'复制table的结构(table.copy()为复制结构与数据）
For Each row As DataRow In table.Rows
table2.NewRow()
table2.ImportRow(row)'复制row到table2中
Next
或者
table2.Rows.Add(row)