主题：目录树筛选

各位老师，我设置了如下代码的目录树，结果运行出现截图中的提示，我不理解：

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

你的代码没有问题,但是条件却少了.一个单引号

 

  Filter = "[分公司名称] = '" & dr("分公司名称") & "' And [部门] = '" & dr("部门") & "' And [职务] = '" & dr("职务") & "' And  [姓名] = '" & dr("姓名")