主题：求助，层级的计算

  目录树统计？

 

http://www.foxtable.com/help/topics/2741.htm

 

 递归获取其下散件，相乘即是结果，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=56193&skin=0

 

 图3，是无法直接使用的，必须弄一个bom表，才方便对产品的管理。

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

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

 

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

'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

你能不能变通

 

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

 统计是累计，你先清空统计的内容，重新计算试试。

 看21楼

如果每次要重新计算，就先清空数据

 

If e.DataCol.Name = "零件" Or e.DataCol.Name = "数量" Then
    If e.DataRow("零件") <> Nothing  And e.DataRow("数量") <> Nothing Then
        DataTables("耗用量统计").DataRows.Clear
        Functions.Execute("GetZiLeiCount",e.DataRow("零件"),e.DataRow,e.DataRow("数量"),0)
    End If
End If