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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]treeview筛选问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=189279)

--  作者：riyuan
--  发布时间：2023/11/21 20:22:00
--  [求助]treeview筛选问题

此主题相关图片如下：屏幕截图 2023-11-21 202153.png

请教如何根据treeview中的节点筛选数据
目前的代码只能实现“所属党组织”
的筛选，其他的根据性别和在册状态就不行

此主题相关图片如下：屏幕截图 2023-11-21 201428.png

[此贴子已经被作者于2023/11/21 20:23:46编辑过]

--  作者：有点蓝
--  发布时间：2023/11/21 20:34:00
--
参考：http://www.foxtable.com/webhelp/topics/0917.htm

If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[产品] = \'" & dr("产品") & "\'"
        Case 1
            Filter = "[产品] = \'" & dr("产品") & "\' And [客户] = \'" & dr("客户") & "\'"
        Case 2
            Filter = "[产品] = \'" & dr("产品") & "\' And [客户] = \'" & dr("客户") & "\' And [雇员] = \'" & dr("雇员") & "\'"
    End Select
End If

--  作者：riyuan
--  发布时间：2023/11/21 20:50:00
--

改成了这样还是不行
If e.Node.Text <> "全部" Then
    Dim Value() As String = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            filter = "1=1"
        Case 1
            Filter = "所属党组织 = \'" & Value(1) & "\'"
        Case 1
           Filter = "性别 = \'" & Value(1) & "\'"
        Case 1
           Filter = "在册状态 = \'" & Value(1) & "\'"
    End Select
Else
    filter = "1=1"
End If

--  作者：riyuan
--  发布时间：2023/11/21 20:51:00
--
始终只能筛选一项的记录

--  作者：有点蓝
--  发布时间：2023/11/21 21:32:00
--

If e.Node.Text <> "全部" Then
    Dim Value() As String = e.Node.FullPath.Split("\\")
    Select Case e.Node.Level
        Case 0
            filter = "1=1"
        Case 1
Select Case Value(0)
        Case "所属党组织"
  Filter = "所属党组织 = \'" & Value(1) & "\'"
        Case "性别"
  Filter = "性别 = \'" & Value(1) & "\'"
        Case "状态"
           Filter = "在册状态 = \'" & Value(1) & "\'"
    End Select
    End Select
Else
    filter = "1=1"
End If