Foxtable(狐表)用户栏目专家坐堂 → [求助]节点,子节点。


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

主题:[求助]节点,子节点。

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
[求助]节点,子节点。  发帖心情 Post By:2015/7/12 20:20:00 [只看该作者]

请帮我看看下面代码哪里错了?选择根节点和子节点各做筛选。
                If trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.Nodes(0).Text <> "显示交换机部门所有研发的BUG" Then
                    Filter = "[研发组长] like '%" & trv1.SelectedNode.Nodes(0).Text & "%'  and [状态] = '待解决'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                ElseIf trv1.SelectedNode.Nodes(0).Nodes(1) IsNot Nothing  Then
                    Filter = "[模块维护人] = '" & trv1.SelectedNode.Nodes(0).Nodes(1).Text & "'  and [状态] = '待解决'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                ElseIf trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.nodes(0).Text = "显示交换机部门所有研发的BUG"  Then
                    Filter = "[状态] = '待解决' and [部门] = '交换机部门'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                End If

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/12 20:23:00 [只看该作者]

 目录树截个图出来,然后直接说要怎样筛选。

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


加好友 发短信
等级:五尾狐 帖子:1165 积分:8129 威望:0 精华:0 注册:2015/3/30 10:44:00
  发帖心情 Post By:2015/7/12 20:34:00 [只看该作者]


此主题相关图片如下:目录树.png
按此在新窗口浏览图片

这是目录树结构。

希望点击wangjingfu或者xiejian,能筛选出研发组长列包括wangjingfu或者xiejian,且状态为待解决的行。

点击子目录,比如liaojian,希望筛选出模块维护人包括liaojian,且状态为待解决的行。

点击显示交换机部门所有研发的BUG,写筛选出状态为待解决的数据。

待解决按钮的代码如下,

  If trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.Nodes(0).Text <> "显示交换机部门所有研发的BUG" Then
                    Filter = "[研发组长] like '%" & trv1.SelectedNode.Nodes(0).Text & "%'  and [状态] = '待解决'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                ElseIf trv1.SelectedNode.Nodes(0).Nodes(1) IsNot Nothing  Then
                    Filter = "[模块维护人] = '" & trv1.SelectedNode.Nodes(0).Nodes(1).Text & "'  and [状态] = '待解决'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                ElseIf trv1.SelectedNode.Nodes(0) IsNot Nothing AndAlso trv1.SelectedNode.nodes(0).Text = "显示交换机部门所有研发的BUG"  Then
                    Filter = "[状态] = '待解决' and [部门] = '交换机部门'"
                    DataTables("BUG研发表").loadFilter = Filter
                    DataTables("BUG研发表").Load()
                End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 9:19:00 [只看该作者]

 呃,这个帮助文档本来就有。

 

 http://www.foxtable.com/help/topics/2054.htm

 


 回到顶部