主题：[求助]两张表数据复制问题

有两张外部数据表A、B，结构完全相同。

 

菜单上想做一个按钮，按一下后，将表A中的筛选出来的数据，复制到表B中，相当于将表A的导出数据和表B的合并数据功能合在一起，代码怎么写？

 For Each r As Row In Tables("表A").Rows
    If DataTables("表B").Find("主列 = '" & r("主列") & "'") Is Nothing Then
        Dim dr As DataRow = DataTables("表B").AddNew()
        For Each c As Col In Tables("表A").Cols     
            dr(c.Name) = r(c.Name)
        Next
    End If
Next

http://www.foxtable.com/help/topics/0680.htm

http://www.foxtable.com/help/topics/1533.htm