摘自:http://topic.csdn.net/t/20040906/12/3344030.html
Dim i, j As Integer
Dim dt1, dt2, dt3 As DataTable
dt1 = MyDataSet.Tables(0)
dt2 = MyDataSet.Tables(1)
MyDataSet.Tables.Add(dt3)
dt3 = dt1.Copy '首先将dt1的表机构和数据整体复制到了新表中,下面根据ID号的相同来复制dt2到 dt3中
Dim mColumn As DataColumn
Dim ColumnName As String '列名
For Each mColumn In dt2.Columns
ColumnName = mColumn.ColumnName
dt3.Columns.Add(ColumnName, mColumn.DataType) '在Dt3中增加dt2的列和类型
Next
'下面复制dt2的数据
For i = 0 To dt2.Rows.Count - 1
If dt2.Rows(i).Item( "a_id ") = dt3.Rows(j).Item( "ID ") Then '如果ID相同,则复制对应行的数据
dt3.Rows(j).Item( "age ") = dt2.Rows(i).Item( "age ")
End If
Next
'到此,dt3完成,方法可能苯了点,不知各位网友还有什么其他的办法
-----------------------------------------------------------------------
摘自:
动态给DataTable添加行和列
http://www.cnblogs.com/wuhuisheng/archive/2011/06/07/2074071.html