Dim nmc() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmd() As String = {"第一列","第二列"} 'B表数据接收列
Dim dra As Row = Tables("表A").Current
Dim drc As Row = Tables("表C").AddNew
For i As Integer = 0 To nmc.Length - 1
drc(nmd(i)) = dra(nmc(i))
Next
Dim nma() As String = {"第一列","第二列"} 'A表数据来源列
Dim nmb() As String = {"第三列","第四列"} 'B表数据接收列
Dim drb As Row = dataTables("表B").SQLFIND("条件语句")
Dim dr As Row = Tables("表C").Current
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = drb(nma(i))
Next