主题：一个临时表 一个数据表 怎么将临时表的所有行数据复制到数据表中……

一个临时表 一个数据表  怎么将临时表的所有行数据复制到数据表中……

两个表数据列相同

代码如下：

For Each c As Col In Tables("在职与亲属").cols
    output.show(C.name)
    For Each r As Row In Tables("在职及亲属").Rows
        If r IsNot Nothing  Then
            Tables("在职与亲属").AddNew
            Tables("在职与亲属").Current(c.name)=r(c.name)
            'Output.show(r(c.name))
        End If
    Next
Next

当前只能实现一列新增复制  有没有办法实现当前所有行所有列写完之后再写下一行的所有列