组装共通品合并加工 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 组装共通品合并加工

共有4478人关注过本帖树形打印复制链接主题：组装共通品合并加工

zhangning

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

组装共通品合并加工 发帖心情

Post By：2017/6/30 11:07:00 [显示全部帖子]

老师，您好！

在表《加工用制品构成》中有各个组装品的构成，如图：

此主题相关图片如下：制品构成1.png

在《月度加工整体安排》中会对组装品作出安排计划安排，如在7月要生产明峰长床3台，短床2台，

调度安排是2台长床和1台短床一个批次，调度号是1707排3，1台长床和1台短床1个批次，调度号是1707排4，

在《加工排产》表中，如下图：

此主题相关图片如下：加工排产1.png

输入组装品名和制单号（一个调度号对应一个制单号），按下“导入加工品”按钮后，会将在《加工用制品构成》里

所要用到的单品导入进来，

现在出现了一个问题，如出现有共通品的情况，共通品需要合并加工：

例如：在1707排3调度号中，我先导入了长床的构成，后又导入了短床的构成，

接下来希望将粗体字中的共通品进行合并，代码需要写在“合并共通品”命令里，

希望达到的效果是：

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

在同一个”调度“号中，①只留下最先出现的“部品ID",后出现的删掉行，

②”最终良品数“加在一起

请老师帮帮忙，谢谢！

zhangning

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/6/30 13:01:00 [显示全部帖子]

谢谢老师，因水平有限，看不懂2楼代码，还需好好学学，

能否麻烦老师帮改改，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产管理2017 - 测试.zip

zhangning

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/6/30 13:01:00 [显示全部帖子]

开发者 qdkf

zhangning

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/3 9:32:00 [显示全部帖子]

老师，如要先判断一下“调度”内容是否一致，

内容一致，再找出重复的，合并，最后删除，

请问老师，粗体的判断代码怎么写呢？

zhangning

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/3 13:46:00 [显示全部帖子]

如果要合计良品数，微调代码即可

粗体不会，不知道怎么调，能不能麻烦老师帮写写，麻烦老师了！

zhangning

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/7/3 15:06:00 [显示全部帖子]

老师，您好！我之前对良品数设置了代码，例如： Select Case e.DataCol.Name Case "批次集结数量" ,"总装个付" ,"安全在库数" ,"期初在库数" e.DataRow("最终良品数") = e.DataRow("批次集结数量") * e.DataRow("总装个付") + e.DataRow("安全在库数") - e.DataRow("期初在库数") End Select 之后，比如本次要如有重复项的话，需要合计良品数，老师帮写的代码： r1("良品数") = t.compute("sum(良品数)", "部品id = '" & r1("部品id") & "' and 调度 = '" & r1("调度") & "'") 感觉后边的代码不起作用，所设置的代码需要都起作用（上面的代码导入后，后面的代码也要起作用）能否用NEW VALUE等实现呢？