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

两个表数据列相同

代码如下：

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

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

For Each r As Row In Tables("在职及亲属").Rows
Tables("在职与亲属").StopRedraw
    If r IsNot Nothing  Then
        Dim dr2  As  Row =  Tables("在职与亲属").AddNew()
        For Each dc  As  Col  In  Tables("在职及亲属").Cols
            dr2(dc.Name) = r(dc.name)
        Next
    End If
Next
Tables("在职与亲属").ResumeRedraw
MessageBox.Show("数据复制完毕")

为什么停止绘制表  在数据写入完之后   表不恢复绘制呢？

For Each r As Row In Tables("在职及亲属").Rows
Tables("在职与亲属").StopRedraw
    If r IsNot Nothing  Then
        Dim dr2  As  Row =  Tables("在职与亲属").AddNew()
        For Each dc  As  Col  In  Tables("在职及亲属").Cols
            dr2(dc.Name) = r(dc.name)
        Next
    End If
Next
Tables("在职与亲属").ResumeRedraw
MessageBox.Show("数据复制完毕")

红色部分注释掉之后   数据又会写入行