以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 关于递归函数的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93490)

--  作者：2900819580 --  发布时间：2016/11/29 21:41:00 --  [求助] 关于递归函数的问题 如以下代码，BOM中有许多BOM，我点展开全阶，这样只会显示全部BOM，也就是等于取消筛选而于，如果可以全部展开我想要的BOM Dim tr As WinForm.TreeView = e.Form.Controls("TreeView2") Dim nd1 As WinForm.TreeNode = tr.SelectedNode Dim mj As String = nd1.Text Dim Parts() As String = mj.Split("|") Tables("BOM明细_tabbom").Filter ="[父阶代码] = \'" & Parts(0) & "\'" If mj = "展开全阶" Then     Tables("BOM明细_tabbom").Filter ="[父阶代码] Is not null "     \'母件信息显示在当前界面 Else              \'统计节点是否涵盖在母件列记录     Dim cnt As Integer     cnt = DataTables("BOM").SQLCompute("Count(*)", "[父阶代码] = \'" & Parts(0) & "\' ")     \'依条件展开查询     If cnt = 0 Then         Tables("BOM明细_tabbom").Filter ="[子阶代码] = \'" & Parts(0) & "\'"              Else         Tables("BOM明细_tabbom").Filter ="[父阶代码] = \'" & Parts(0) & "\'"         \'母件信息显示在当前界面     End If End If Tables("BOM明细_tabbom").AutoSizeCols()

--  作者：有点蓝 --  发布时间：2016/11/29 22:03:00 --   没搞懂你想要表达什么