以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]筛选  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178230)
--  作者：建筑人生
--  发布时间：2022/6/24 10:13:00
--  [求助]筛选

Dim Filter As String
Dim wtb As WinForm.Table = e.Form.Controls("Table1")\'窗口表

Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行

\'\'\'目录树是参数表生成，窗口表是流水账表生成，现在不知道前面这句怎么改****

 

If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
             Filter = "[一级科目] = \'" & dr("科目表_一级") & "\' or [一级科目] = \'" & dr("对方科目_一级") & "\'"
        Case 1
            Filter = "[一级科目] = \'" & dr("科目表_一级") & "\' or [一级科目] = \'" & dr("对方科目_一级") & "\' and [二级科目] = \'" & dr("科目表_二级") & "\' or [二级科目] = \'" & dr("对方科目_二级") & "\'"
        Case 2
            Filter = "[一级科目] = \'" & dr("科目表_一级") & "\' or [一级科目] = \'" & dr("对方科目_一级") & "\' and [二级科目] = \'" & dr("科目表_二级") & "\' or [二级科目] = \'" & dr("对方科目_二级") & "\' and [三级科目] = \'" & dr("科目表_三级") & "\' or [三级科目] = \'" & dr("对方科目_三级") & "\'"
    End Select
End If


Tables("流水账").Filter = Filter

[此贴子已经被作者于2022/6/24 10:14:42编辑过]
--  作者：有点蓝
--  发布时间：2022/6/24 10:31:00
--  
没看懂。代码有什么问题？
--  作者：建筑人生
--  发布时间：2022/6/24 17:51:00
--  
黄色行代码有问题
--  作者：有点蓝
--  发布时间：2022/6/25 9:02:00
--  
有什么问题？提示什么错误？筛选树是怎么生成的？