- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 物料需求 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85669)
-- 发布时间：2016/5/31 14:46:00
-- 物料需求
老师这个示例中，如何实现当前行产品物料需求的计算
也就是当生产计划中有相同的产品时，我只要计算当前这个产品的物料需求，不累计计算
-- 发布时间：2016/5/31 14:47:00
--
上传实例。
-- 发布时间：2016/5/31 15:07:00
-- 物料需求
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:物料需求.foxdb |
-- 发布时间：2016/5/31 15:11:00
--
Dim dic As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
Dim dr1 As Row = Tables("生产计划").current
For Each dr2 As DataRow In DataTables("零件用量").Select("[父类] = \'" & dr1("产品") & "\'")
Dim nm As String = dr2("零件")
Dim vl As Integer = dr1("生产数量") * dr2("用量")
If dic.ContainsKey(nm) = False
dic.Add(nm,vl)
Else
dic(nm) = dic(nm)+ vl
End If
Next
For Each key As String In dic.keys
Dim dr As DataRow = DataTables("零件需求").AddNew()
dr("零件") = key
dr("需求数量") = dic(key)
Next