以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] BOM展开问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152098)

--  作者：susanhe --  发布时间：2020/7/8 22:03:00 --  [求助] BOM展开问题 老师，如图请帮忙指导一下哪儿错了，并附实例 ，谢谢。

--  作者：susanhe --  发布时间：2020/7/8 22:04:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:bom4.rar

--  作者：susanhe --  发布时间：2020/7/8 22:05:00 --   此主题相关图片如下：捕获.png

--  作者：有点蓝 --  发布时间：2020/7/9 8:55:00 --   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

--  作者：susanhe --  发布时间：2020/7/9 19:38:00 --   老师，虽然没有出现错误提示框了，但是出来的结果是不正确的。正确是的图1的，谢谢。

--  作者：susanhe --  发布时间：2020/7/9 19:38:00 --   此主题相关图片如下：捕获2.png 此主题相关图片如下：捕获1.png

--  作者：有点蓝 --  发布时间：2020/7/9 20:22:00 --   afterload ……         dr("层次") = "单件出货"              End If     Functions.Execute("sumChild",ary(0),qty, 1) Next