Foxtable(狐表)用户栏目专家坐堂 → [求助] 关于递归函数的问题


  共有2048人关注过本帖树形打印复制链接

主题:[求助] 关于递归函数的问题

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1353 积分:9874 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 关于递归函数的问题  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/29 22:03:00 [只看该作者]

没搞懂你想要表达什么

 回到顶部