[求助]根据生产计划表生成需求明细表的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据生产计划表生成需求明细表的代码

共有1842人关注过本帖树形打印复制链接主题：[求助]根据生产计划表生成需求明细表的代码

liuyixin662

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

等级：二尾狐帖子：533 积分：4403 威望：0 精华：0 注册：2012/11/28 16:03:00

[求助]根据生产计划表生成需求明细表的代码 发帖心情

Post By：2017/8/18 16:11:00 [只看该作者]

老师你好,窗口中有个生产计划表,如何根据生产计划表的<计划单号> 及<产品生产计划数>及<产品信息表>计算相关产品的部件需求,产品信息表已维护相关产品的部件需求,如何在<部件需求表>按计划单的顺序填充到部件需求表里计算总需求量.谢谢!!!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:部件需求计算.foxdb

有点蓝

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

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/8/18 16:31:00 [只看该作者]

参考，命令窗口执行看效果，其它列的数据自己补上：

Dim dr As DataRow

For Each r As Row In Tables("生产计划单").Rows

For Each r2 As DataRow In DataTables("产品部件表").Select("产品编号='" & r("产品编号") & "'")

dr = DataTables("部件需求计算").AddNew

dr("计划单号") = r("计划单号")

dr("产品编号") = r("产品编号")

dr("部件序号") = r2("部件序号")

Dim jhs As Integer = r("产品生产计划数")

Dim yl As Integer = r2("部件用量")

dr("部件用量") = yl

dr("总需求量") = jhs * yl

liuyixin662

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

等级：二尾狐帖子：533 积分：4403 威望：0 精华：0 注册：2012/11/28 16:03:00

Post By：2017/8/18 19:00:00 [只看该作者]

谢谢老师

主题：[求助]根据生产计划表生成需求明细表的代码