Foxtable(狐表)用户栏目专家坐堂 → 目录树-递归


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

主题:目录树-递归

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 15:41:00 [显示全部帖子]

没看懂。上传的实例也没有窗口

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 15:55:00 [显示全部帖子]

第一层和第二层有什么关系?上传的实例没有窗口

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 16:28:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.zip


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 16:46:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 16:56:00 [显示全部帖子]

加一个项目编号的条件

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/15 8:53:00 [显示全部帖子]

方法1、通过FullPath分割获取:http://www.foxtable.com/webhelp/topics/0906.htm
2、递归获取最上级的父节点:http://www.foxtable.com/webhelp/topics/1498.htm

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/15 9:07:00 [显示全部帖子]

上传有有问题的实例测试

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/15 9:33:00 [显示全部帖子]

函数也要改的,函数没改

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/15 9:44:00 [显示全部帖子]

自定义函数:http://www.foxtable.com/webhelp/topics/1486.htm

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/15 16:41:00 [显示全部帖子]

Dim Filter As String
If e.Node.Text <> "全部" Then
    Select Case e.Node.Level
        Case 0
            Filter = "项目编号='" & e.node.text & "'"
        Case 1
        Case Else
            Dim p As WinForm.TreeNode = e.node.ParentNode
            Do While p.ParentNode IsNot Nothing
                p = p.ParentNode
            Loop
            Filter = "[项目编号] = '" & p.text & "' And [子目号] = '" & e.node.text.split(" ")(0) & "'"
    End Select
End If
Tables("工程量清单").Filter = Filter

 回到顶部
总数 12 1 2 下一页