主题：表间的复制问题

如果两个表结构相同：

Dim r1 As Row = Tables("表A").Row
Dim r2 As Row = Tables("表B").AddNew()
For Each dc As DataCol In DataTables("表B").DataCols
    r2(dc.Name) = r1(dc.Name)
Next

如果结构不同：

Dim r1 As Row = Tables("表A").Row
Dim r2 As Row = Tables("表B").AddNew()
Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列
For i As Integer = 0 To nma.Length - 1
    r2(nmb(i)) = r1(nma(i))
Next

笔误。

Dim r1 As Row = Tables("表A").Row

改为：

Dim r1 As Row = Tables("表A").Current