主题：[求助]生产BOM问题

看懂代码，然后改写成你自己的。如果不想移除，请删除这句

DataTables("工单明细表").DataRows.Clear

老师，在请问一下，目前实现的是到最末级进行计算，如果只运算到其中一级（比如第3级），递归的函数如何判断， 比如集合有两行，循环第一行递归到第3级就停止（如果只有第2级的那就直接取第二级，再去执行集合中下一行的递归），然后去循环集合中的第二行进行递归

函数

Dim dt As DataTable =DataTables("BOM明细")
Dim ln As String = args(0)
Dim s As Integer = args(1)
Dim lvl As Integer = args(2)
Dim curlvl As Integer = args(3)
Dim cs As Integer=0
If curlvl <= lvl Then
    For Each dr As DataRow In dt.Select("父项名称='" & ln & "'")
        Dim count As Single = dr("用量") * s
        Dim drr As DataRow = DataTables("工单明细表").Find("名称='" & dr("名称") & "'")
        If drr Is Nothing Then
            drr = DataTables("工单明细表").addnew
            drr("名称")=dr("名称")
        End If
        drr("用量")+=count
        Functions.Execute("Count",dr("名称"),count, lvl, curlvl+1)
    Next
End If
Return Nothing

调用代码

DataTables("工单明细表").DataRows.Clear
For Each drr As DataRow In DataTables("工单主表").DataRows
    Functions.Execute("Count",drR("名称"),drr("数量"), 3, 1)
Next