For Each dr1 As Row In Tables("查询表.出入库明细表").Rows Dim dr2 As Row = Tables("出库导出表").Addnew() For Each dc As Col in Tables("出库导出表").Cols dr2(dc.name) = dr1(dc.name) Next Tables("查询表.出入库明细表").current.delete Next 以上代码是实现查询表.出入库明细表中显示的所有行复制到“出库导出表中”,需要执行几次才能完成?不会一次复制所有行。请教代码问题出在哪?