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

例如从表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

不明白你的意思，复制来复制去，代码都是一样

复制过去后，删除原来的行，就是转移了。

  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
        r2(nmb(i)) = r1(nma(i))
   Next

   r1.Delete()

提问的时候，最好做个简单的例子发上来，有具体的问题，别人才能给具体的答案。