主题：数据复制（已解决）

各位高手们请指点下：

我想在点击按钮之后，A表的数据自动复制到B表中，同时把A表的数据删除

For Each dr1 As Row In Tables("表A").Rows
    Dim dr As Row =Tables("表b").Rows.AddNew
    dr("第一列")=dr1("第一列")
    dr("第二列")=dr1("第二列")
    dr("第三列")=dr1("第三列")
    dr1.Delete
Next

这样写只会复制部分行，而不是全部复制，不知道是什么原因，要怎么修改

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据复制.table