以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]treeview筛选问题  (http://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