- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 递归的成本计算问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51263)
-- 发布时间：2014/5/22 22:46:00
-- 递归的成本计算问题
目录树从底级往上累加金额，想了很久想不到解决方案，请教各位老师，有什么好办法吗？
-- 发布时间：2014/5/22 22:48:00
--
已知目录树最底级的来源是“采购”的金额
想得到中间各级半成品的成本，产品的成本
-- 发布时间：2014/5/22 23:28:00
--
如下，有点绕
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:bom单价.table |
-- 发布时间：2014/5/23 0:30:00
--
非常感谢
-- 发布时间：2014/7/17 16:18:00
--
有个新问题
中间各级（如物料1、物料2）单位用量是1的话，是正常的
现在碰到有用量不是1的（如物料1的用量是2），上级的成本就不对了，尝试改了内部函数，还是不行
请老师帮忙一下
-- 发布时间：2014/7/17 16:36:00
--
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim je As Double = args(2)
Dim drs As List(of DataRow)
drs = dt.Select("[产品编码] = \'" & nd.name & "\'")
If drs.Count = 0 Then
nd.Text &= " 成本:" & je
Return je
Else
Dim sum As Double = 0
For Each dr As DataRow In drs
Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("物料编码"),dr("物料名称"))
sum += Functions.Execute("bom",cd,dt,dr("金额"))
Next
sum = sum*dt.Find("物料编码 = \'" & nd.Name & "\' and 物料名称 = \'" & nd.Text & "\'")("用量")
nd.Text &= " 成本:" & sum
Return sum
End If
-- 发布时间：2014/7/17 16:50:00
--
谢谢
-- 发布时间：2014/7/26 17:20:00
--
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim je As Double = args(2)
Dim drs As List(of DataRow)
drs = dt.Select("[产品编码] = \'" & nd.name & "\'")
If drs.Count = 0 Then
nd.Text &= " 成本:" & je
Return je
Else
Dim sum As Double = 0
For Each dr As DataRow In drs
Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("物料编码"),dr("物料名称"))
sum += Functions.Execute("bom",cd,dt,dr("金额"))
Next
sum = sum*dt.Find("物料编码 = \'" & nd.Name & "\' and 物料名称 = \'" & nd.Text & "\'")("用量")
nd.Text &= " 成本:" & sum
Return sum
End If
红色处如何把产品编码作为条件加进去，因为不同产品用到该物料的数量不同，所以成本也就不同
用
sum = sum*dt.Find("物料编码 = \'" & nd.Name & "\' and 产品编码 = \'" & nd.ParentNode.Name & "\'")("用量")
又不对
-- 发布时间：2014/7/26 17:27:00
--
如产品1 用到物料1 是2 个
产品2 用到物料1 是4个
用原来的方法算出来，物料1都是找到同一条记录的
-- 发布时间：2014/7/27 9:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目22.table |