主题：求助，层级的计算

就是这张图，只体现子件与父件，之前看过个例子，是可以实现的，不知道我这种能否实现呢
此主题相关图片如下：01.png


此主题相关图片如下：自动生成.png

 你想实现什么？根据子件和父件生成目录树？照抄代码就是你要的啊

如何把昨天在表内的计算，用窗口来计算？
此主题相关图片如下：散件计算窗口.png

DataTables("耗用量统计").DataRows.Clear
Functions.Execute("GetZiLeiCount", "零件名", "数量",0)

是都写在查询的click事件中吗？貌似报错了
此主题相关图片如下：报错.jpg

无语，贴出你写的代码。

这个截图
此主题相关图片如下：窗口.png

 内部函数

 

'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)(0) & "' and 子零件 = '" & args(0) & "'")
    If dr Is Nothing Then
        dr = DataTables("耗用量统计").AddNew()
        dr("子零件") = args(0)
        dr("消耗量") = args(2)
        dr("生产编号") = args(1)(0)
        dr("零件") = args(1)(1)
        dr("数量") = args(1)(2)
        dr("单台用量") = args(3)
    Else
        dr("子零件") = args(0)
        dr("消耗量") += args(2)
        dr("数量") = args(1)(2)
    End If
End If

 

 调用

 

DataTables("耗用量统计").DataRows.Clear
Dim ary() As String = {1, "C00000115", 2}
Functions.Execute("GetZiLeiCount", "C00000115", ary, 2, 0)

调用

DataTables("耗用量统计").DataRows.Clear
Dim ary() As String = {1, "C00000115", 2}
Functions.Execute("GetZiLeiCount", "C00000115", ary, 2, 0)

 

这部分也写在内部函数里吗？写进去会报错，提示未定义调用,还有这代码中直接把件号"C00000115"写入？那我查询其他零件号时，能计算不？