Dim pn As String = args(0)
Dim qty As String = args(1)
Dim idx As Integer = args(2)
For Each dr As DataRow In DataTables("BOM").Select("FNumber='" & pn & "'")
Dim ndr As DataRow = DataTables("物料需求").AddNew
ndr("PartNo") = dr("PN")
' ndr("Date") = args(3)
' ndr("批号") = args(4)
ndr("Demand") = dr("FQty") * qty
ndr("层次") = "第" & idx & "层"
Functions.Execute("sumChild",dr("PN"),ndr("Demand"), idx+1)
Next