谢谢老师,我按照你的方法又做了一遍,结果出现多了一行空白,我用你以前教我的方法,并未生效,但是把Dim t As Table = Tables("退货出库单子表")修改为Dim t As Table = Tables("退货出库单父表.退货出库单子表")就行,为什么呢?
Dim t As Table = Tables("退货出库单子表")
Dim i As Integer = t.Current.Index
For Each r As Row In Tables("入库单父子表目录树_table1").GetCheckedRows
Dim nr As Row = t.AddNew
nr("单号") = Tables("退货出库单父表").Current("单号")
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
Next
t.rows(i).Delete
Forms("入库单父子表目录树").close()
此主题相关图片如下:12.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2017-1/201711512515610327.jpg)