[求助] BOM展开增加说明 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] BOM展开增加说明

共有3218人关注过本帖树形打印复制链接主题：[求助] BOM展开增加说明

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/6 10:58:00 [显示全部帖子]

DataTables("物料需求").datarows.clear

For Each Ary As String() In DataTables("OrderList").GetValues("PartNo|ETD|批号","PartNo is not null")

Dim dr As DataRow = DataTables("物料需求").AddNew

dr("PartNo") = ary(0)

If ary(1) > ""

dr("Date") = cdate(ary(1))

End If

dr("批号") = ary(2)

Dim qty As Integer = DataTables("OrderList").Compute("sum(Qty)","PartNo='" & ary(0) & "' And " & IIf(ary(1) > "","ETD='" & ary(1) & "'","ETD is null") & " and 批号 ='" & ary(2) & "'")

dr("Demand") = qty

Functions.Execute("sumChild",ary(0),qty, ary(0), dr("Date"),ary(2))

颜色参考：http://www.foxtable.com/webhelp/topics/0656.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/6 11:46:00 [显示全部帖子]

递归函数添加多一个整数参数，每递归一次就+1传入，不就有层次了

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/6 13:50:00 [显示全部帖子]

……

Dim qty As Integer = DataTables("OrderList").Compute("sum(Qty)","PartNo='" & ary(0) & "' And " & IIf(ary(1) > "","ETD='" & ary(1) & "'","ETD is null") & " and 批号 ='" & ary(2) & "'")

dr("Demand") = qty

Functions.Execute("sumChild",ary(0),qty, ary(0), dr("Date"),ary(2),1)

函数

dim idx as integer = args(5)

msgbox(idx)

……

ndr("批号") = args(4)

ndr("Demand") = dr("FQty") * qty

Functions.Execute("sumChild",dr("PN"),ndr("Demand"), args(2), args(3), args(4),idx+1)

……