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

请各位老师帮忙在入库单中如何完成如下功能

 

在入库单中选中双击某行，窗体中如图所示：

第一步，选中连续添加；

第二步，在圈2中更改个别内容如（如：单号，部门，经办人，货品等）

第三步，选中保存，更改后的内容就添加到入库单中新的一行

 

此主题相关图片如下：图片.png

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

 

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

 

 请上传一个例子

不是复制一份一样的入库单，是新的入库单与原有的入库单内容基本一至，就差一两项不一样，我想通过把原来的入库不一样的那几项修改一样保存成一条新的入库单，原来的入库单还是要的。

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

 

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

 

 具体代码你要上传例子。

 

只做了几步的例子，麻烦老师有时间帮我弄一下

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

点击浏览该文件:管理项目1.rar

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

 

    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