以下是引用jk362223在2014-7-1 14:49:00的发言:
能不能通过一个按钮,就可以把上面二个功能做了?就是从表A第一列,第二列,表B的第三列,第四列复制到表C?
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 = Tables("表B").Current
Dim dr As Row = Tables("表C").Current
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = drb(nma(i))
Next