- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]需求计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147644)
-- 发布时间：2020/3/20 23:06:00
-- [求助]需求计算
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
有零件用量，生产计划两个表
需要实现功能为
录入生产计划 产品 数量，自动按照零件用量展开如零件需求，不进行累计汇总，求教。
[此贴子已经被作者于2020/3/20 23:08:37编辑过]
-- 发布时间：2020/3/20 23:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2020/3/20 23:17:08编辑过]
-- 发布时间：2020/3/21 8:35:00
--
生产计划，datacolchanged事件
Select Case e.DataCol.Name
Case "产品","生产数量"
If e.DataRow.IsNull("产品") = False AndAlso e.DataRow.IsNull("生产数量") = False Then
Dim d2 As DataRow
For Each dr As DataRow In DataTables("零件用量").Select("产品=\'" & e.DataRow("产品") & "\'")
d2 = DataTables("零件需求").Find("产品=\'" & e.DataRow("产品") & "\' and 零件=\'" & dr("零件") & "\'")
If d2 Is Nothing Then
d2 = DataTables("零件需求").AddNew
d2("产品") = e.DataRow("产品")
d2("零件") = dr("零件")
End If
d2("生产数量") = e.DataRow("生产数量")
d2("需求数量") = e.DataRow("生产数量") * dr("用量")
Next
End If
End Select
-- 发布时间：2020/3/21 12:30:00
--
这个只能写入新录入的需求，把原来的需求都删除了，我需要的是列出所有的需求
-- 发布时间：2020/3/21 13:35:00
--
没看懂，截图说明一下要什么效果
-- 发布时间：2020/3/21 14:36:00
--
此主题相关图片如下：2.png
此主题相关图片如下：1.png
生产计划有5 项产品，需求展开的只有最后一行的
-- 发布时间：2020/3/21 14:57:00
--
之前的例子里的产品是不重复的，我也就理解不会有重复的。所以以后给例子的时候数据能够尽量反应真实的情况。
以6楼的数据，最后零件需求是什么结果？手工录入，然后截图看看
-- 发布时间：2020/3/21 15:11:00
--
此主题相关图片如下：3.png
-- 发布时间：2020/3/21 15:32:00
--
计划表还会不会有产品、数量都完全相同的不同行数据？零件需求的数据每次都是新增吗？还是可以通过什么列进行关联？
-- 发布时间：2020/3/21 15:49:00
--
计划表是不断的变动的，型号和数量都是增加的