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

各位高手们请指点下：

我想在点击按钮之后，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

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

DataTables("表A").DataRows.Clear()

谢谢狐狸爸爸的答复

为了简化问题，表A的筛选我没有显示出来

我想删除的是 tables（"表A"）中所显示的所有数据，不是datatable（"表a"）中的所有数据

请问需要怎么修改？

DataTables("表A").DataRows.Clear()

For  i As Integer = Tables("表A").Rows.Count -1 To 0 Step -1
    Dim dr1 As Row = Tables("表A").Rows(i)
    Dim dr2 As Row =Tables("表B").Rows.AddNew
    dr2("第一列")=dr1("第一列")
    dr2("第二列")=dr1("第二列")
    dr2("第三列")=dr1("第三列")
    dr1.delete
Next

参考：

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

有详细的因果分析。