主题：[求助]BOM物料成本核算

搞了 好久没弄好，要崩溃了

，需要的效果是，如果是第一层，那么成本就等于单价，这个OK，

如果有下层，那么dr1(“单价“)= dr2单价*dr2数量 之和，卡了好久不知道怎么弄，希望老师大神门帮帮忙

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:bom 测试_201706220247.zip

 汗，才理解你的意思。为什么要在展开的时候计算？你在bom表里面可以先一次性得到值啊。

 

内部函数 sum

Dim dr As DataRow = args(0)
Dim dt As DataTable = dr.DataTable
Dim dj As Double = dr("单价")
Dim drs As List(of DataRow)
drs = dt.Select("[父键] = '" & dr("子键") & "'")
If drs.Count = 0 Then
    Return dr("单价")
Else
    Dim sum As Double = 0
    For Each cdr As DataRow In drs
        sum += Functions.Execute("sum",cdr) * cdr("数量")
    Next
    dr("单价") = sum
    Return sum
End If

 

计算单价代码

Dim dt As DataTable = DataTables("bom")
For Each dr As DataRow In dt.Select("父键 is null")
    Functions.Execute("sum",dr)
Next

这个挺好了，就是没有父键为空的比较多的时候容易闪退

 

闪退应该是因为你的数据【死循环】了吧？比如 A有子健B，B的子健又是A