Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选


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

主题:[求助]筛选

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


加好友 发短信
等级:小狐 帖子:343 积分:3486 威望:0 精华:0 注册:2014/8/20 20:14:00
[求助]筛选  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/24 10:31:00 [只看该作者]

没看懂。代码有什么问题?

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


加好友 发短信
等级:小狐 帖子:343 积分:3486 威望:0 精华:0 注册:2014/8/20 20:14:00
  发帖心情 Post By:2022/6/24 17:51:00 [只看该作者]

黄色行代码有问题


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/25 9:02:00 [只看该作者]

有什么问题?提示什么错误?筛选树是怎么生成的?

 回到顶部