Foxtable(狐表)用户栏目专家坐堂 → 请教:如何用代码定位到内置筛选树的指定节点?


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

主题:请教:如何用代码定位到内置筛选树的指定节点?

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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
请教:如何用代码定位到内置筛选树的指定节点?  发帖心情 Post By:2019/6/27 8:01:00 [只看该作者]

如题,谢谢!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/27 9:49:00 [只看该作者]

比如

 

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            Dim trv = b.controls(0).controls(0)
            trv.visible = True
            trv.Selectednode = trv.nodes(3)
        End If
    Next
Next


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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2019/6/27 10:39:00 [只看该作者]

谢谢!图片点击可在新窗口打开查看

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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2019/9/3 12:07:00 [只看该作者]

再问:以下代码可以循环内置筛选树的1、2级节点,如何循环所有节点?类似窗口目录树控件的AllNodes
For Each a As OBJECT In Tables("Code").grid.Parent.controls
    For Each b As OBJECT In a.controls
        If B.text = "筛选树" Then
            Dim trv = b.controls(0).controls(0)
            For ii As Integer = 0 To trv.nodes.count -1
                For i As Integer = 0 To trv.nodes(ii).nodes.count -1
                    Output.Show(ii & "," & i & "," & trv.nodes(ii).nodes(i).text)
                Next
            Next
        End If
    Next
Next


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


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/3 13:47:00 [只看该作者]

只能通过递归处理

 回到顶部