- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助:BOM成本运算实例应用（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74624)
-- 发布时间：2015/9/15 17:36:00
-- 求助:BOM成本运算实例应用（已解决）
下图中,我已经取到了所有最末阶的物料的单价,现在希望在点左边目录树节点时,查询对应出来的右边表,能够自动计算出半成品的价格.
原理是:直接将该半成品的下阶物料的单位成本进行合计,然单按用量计算出单价.这个功能有挺实用的,不知如何实现,请老师帮忙!
此主题相关图片如下：qq图片20150915171053.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
[此贴子已经被作者于2015/9/15 19:50:20编辑过]
-- 发布时间：2015/9/15 19:50:00
--
自己研究出来了，还是大红袍老师的提醒管用，谢谢！
在窗口打开后事件执行以下代：
Dim drs As List(Of DataRow)
drs = DataTables("U8_BOM").Select("[单位成本] is null", "级别 asc")
For Each dr As DataRow In drs
dr("单位成本") = DataTables("U8_BOM").Compute("sum(单位成本)", "母件编码 = \'" & dr("子件编码") & "\'")
DataTables("U8_BOM").Save
Next