主题：[求助]能做成这样的系统?

例如从表A复制当前行到表B：

   Dim nma() As String = {"A1","A2","A3","A4"} 'A表数据来源列
   Dim nmb() As String = {"B1","B2","B3","B4"} 'B表数据接收列

   Dim r1 As Row = Tables("表A").Current
   Dim r2 As Row = Tables("表B").AddNew
   For i As Integer = 0 To nma.Length - 1
        r1(nmb(i)) = r2(nma(i))
   Next