| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187489) |
| -- 作者：longyanlin -- 发布时间：2023/7/21 16:36:00 -- 目录树筛选 Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.Text <> "显示所有" Then Select Case e.Node.Level Case 0 Filter = "[部门] = \'" & dr("部门") & "\'" End Select End If Tables("员工资料").Filter = Filter 以上代码是在“员工资料”表里面按部门筛选，现住想要再加一个条件，比如除了部门外还需加上“是否在岗”列不等于“在岗”的条件，请问如何改代码，谢谢
[此贴子已经被作者于2023/7/21 16:48:02编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/7/21 16:47:00 -- Dim Filter As String = “是否在岗 <> \'在岗\'” If e.Node.Text <> "显示所有" Then Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 Select Case e.Node.Level Case 0 Filter = Filter & " and [部门] = \'" & "\'" Case 1 Filter = Filter & " and [部门] = \'" & dr("部门") & "\'" End Select End If Tables("员工资料").Filter = Filter
|
| -- 作者：longyanlin -- 发布时间：2023/7/21 16:51:00 -- 蓝老师，好像没有任何反应，按显示所有可以，按各部门的就没有反应了 [此贴子已经被作者于2023/7/21 16:54:22编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/7/21 16:54:00 -- 调试： …… msgbox(Filter) ‘是否能够弹出条件 Tables("员工资料").Filter = Filter
|
| -- 作者：longyanlin -- 发布时间：2023/7/21 16:57:00 -- 条件弹出，但是按下部门后变得全部没有 |
| -- 作者：longyanlin -- 发布时间：2023/7/21 17:02:00 -- 问题找到，就是删除 Filter = Filter & " and [部门] = \'" & "\'" Case 1这行代码就可以了，谢谢蓝老师
|