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

参考

http://www.foxtable.com/webhelp/scr/2479.htm

具体问题上传实例说明

参考

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

count内部函数

Dim dt As DataTable =DataTables("BOM明细")
Dim ln As String = args(0)
Dim s As Integer = args(1)
Dim cs As Integer=0
For Each dr As DataRow In dt.Select("父项名称='" & ln & "'")
    Dim count As Integer=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)
Next
Return Nothing

调用代码

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

你工单主表，要输入名称和数量，才能计算得到工单明细表的内容。

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

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

函数

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