主题：求助，层级的计算

用户开发者，密码888

 你的物料信息根本就没有层级关系，必须单独建立一个bom表啊。

恩，是这样的，因为维护的数据量比较大，前期单独建一张bom表也是可以的。那这两个表是不是应该有些关联字段，我以后就只维护那张物料信息主表，BOM信息根据主表信息自己修改。这样可行吗？

 bom表，肯定有一列零件号列。

 

 bom表只需要有几列关键列即可，如 父零件号、零件号、用量

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

点击浏览该文件:管理项目1.zip

求大神看下，上述计算中存在一个问题。比如说子部件117、123、125都需要零件B06，最后计算时，B06虽然只出现了一次，但是数量却没有累加，计算有误。

'args(0)  零件
'args(1)  编号
'args(2)  数量

Dim drs As List(Of DataRow) = DataTables("BOM").Select("零件='" & args(0) & "'")
If drs.Count>0 Then
    For Each dr As DataRow In drs
        Functions.Execute("GetZiLeiCount",dr("子零件"),args(1),dr("定额")*args(2), dr("定额"))
    Next
Else
    Dim dr As DataRow = DataTables("耗用量统计").Find("生产编号='" & args(1)("_Identify") & "' and 子零件 = '" & args(0) & "'")
    If dr Is Nothing Then
        dr = DataTables("耗用量统计").AddNew()
        dr("子零件") = args(0)
        dr("消耗量") = args(2)
        dr("生产编号") = args(1)("_Identify")
        dr("零件") = args(1)("零件")
        dr("数量") = args(1)("数量")
        dr("单台用量") = args(3)
    Else
        dr("子零件") = args(0)
        dr("消耗量") = args(2)
        dr("数量") += args(1)("数量")
    End If
End If

代码貌似有问题哦，改完后子件的数量没有变，母件的数量变化了。
此主题相关图片如下：捕获.png

你能不能变通

 

Dim drs As List(Of DataRow) = DataTables("BOM").Select("零件='" & args(0) & "'")
If drs.Count>0 Then
    For Each dr As DataRow In drs
        Functions.Execute("GetZiLeiCount",dr("子零件"),args(1),dr("定额")*args(2), dr("定额"))
    Next
Else
    Dim dr As DataRow = DataTables("耗用量统计").Find("生产编号='" & args(1)("_Identify") & "' and 子零件 = '" & args(0) & "'")
    If dr Is Nothing Then
        dr = DataTables("耗用量统计").AddNew()
        dr("子零件") = args(0)
        dr("消耗量") = args(2)
        dr("生产编号") = args(1)("_Identify")
        dr("零件") = args(1)("零件")
        dr("数量") = args(1)("数量")
        dr("单台用量") = args(3)
    Else
        dr("子零件") = args(0)
        dr("消耗量") += args(2)
    End If
End If

俺是新手啊

求大神再看看，我发现计算结果不对，按照我手工算最简单的，单位用量都给的1，子零件数量应为1、3、1、2、1、1、1、1、1.求解啊