- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据生产计划表生成需求明细表的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105411)
-- 发布时间：2017/8/18 16:11:00
-- [求助]根据生产计划表生成需求明细表的代码
老师你好,窗口中有个生产计划表,如何根据生产计划表的<计划单号> 及<产品生产计划数>及<产品信息表>计算相关产品的部件需求,产品信息表已维护相关产品的部件需求,如何在<部件需求表>按计划单的顺序填充到部件需求表里计算总需求量.谢谢!!!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:部件需求计算.foxdb |
-- 发布时间：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
Next
Next
-- 发布时间：2017/8/18 19:00:00
--
谢谢老师