主题：[求助]连续添加问题

 呃，你的意思是 复制 一份这个 入库单 吗？

 如果是，更改后的内容生成一张新的入库单，那原先那张入库单是不改变吗？

 请上传一个例子

 逻辑不应该是你想的那样：你应该先拷贝一份出来，然后修改、删除和保存的，这样你才不会改了原先的单子。

 也就是说，你点击连续添加的时候，就把东西拷贝一份，然后定位到这一行，就行了；或者是，点击连续添加的时候，单独弹出一个新的窗口供你编辑。

 具体代码你要上传例子。

 看了一下，你做一个按钮，就可以拷贝当前行了

    Dim nr As Row = Tables("订货通知单").Current.Clone
    For Each dr As DataRow In nr.DataRow.GetChildRows("产品明细")
        nr("客户名称") = nr("_Identify")
        Dim cnr As Row = Tables("产品明细").rows(Tables("产品明细").FindRow(dr)).clone
        cnr("客户名称") = nr("客户名称")
    Next