专家坐堂-[求助]节点，子节点。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]节点，子节点。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71491)

--  作者：huhu
--  发布时间：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

--  作者：大红袍
--  发布时间：2015/7/12 20:23:00
--
目录树截个图出来，然后直接说要怎样筛选。

--  作者：huhu
--  发布时间：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

--  作者：大红袍
--  发布时间：2015/7/13 9:19:00
--

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

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