- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64851)
-- 发布时间：2015/3/3 16:15:00
-- 目录树筛选
各位老师，我设置了如下代码的目录树，结果运行出现截图中的提示，我不理解：
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow
If e.Node.Text <> "" Then
Select Case e.Node.Level
Case 3
Filter = "[分公司名称] = \'" & dr("分公司名称") & "\' And [部门] = \'" & dr("部门") & "\' And [职务] = \'" & dr("职务") And " [姓名] = \'" & dr("姓名")
Case 2
Filter = "[分公司名称] = \'" & dr("分公司名称") & "\' And [部门] = \'" & dr("部门") & "\' And [职务] = \'" & dr("职务") & "\'"
Case 1
Filter = "[分公司名称] = \'" & dr("分公司名称") & "\' And [部门] = \'" & dr("部门") & "\'"
Case 0
Filter ="[分公司名称] = \'" & dr("分公司名称") & "\'"
End Select
End If
Tables("共享数据_table1").Filter = Filter
此主题相关图片如下：qq截图20150303160624.png
-- 发布时间：2015/3/3 16:16:00
--
你的代码没有问题,但是条件却少了.一个单引号
-- 发布时间：2015/3/3 16:16:00
--
Filter = "[分公司名称] = \'" & dr("分公司名称") & "\' And [部门] = \'" & dr("部门") & "\' And [职务] = \'" & dr("职务") & "\' And [姓名] = \'" & dr("姓名")