主题：TreeView 节点单击“显示所有行”出错！

Dim Filter As String = ""

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

If e.Node.Text <> "显示所有行" Then

    If vars("分类")="按单位分类" Then

        Select Case e.Node.Level

            Case 0

                Filter = "[工作单位] = '" & dr("工作单位") & "'"

            Case 1

                Filter = "[工作单位] = '" & dr("工作单位") & "' And [级别归属] = '" & dr("级别归属") & "'"

            Case 2

                Filter = "[工作单位] = '" & dr("工作单位") & "' And [级别归属] = '" & dr("级别归属") & "' And [身份性质] = '" & dr("身份性质") & "'"

            Case 3

                Filter = "[工作单位] = '" & dr("工作单位") & "' And [级别归属] = '" & dr("级别归属") & "' And [身份性质] = '" & dr("身份性质") & "'And [姓名] = '" & dr("姓名") & "'"

        End Select

    Else

        Select Case e.Node.Level

            Case 0

                Filter = "[级别归属] = '" & dr("级别归属") & "'"

            Case 1

                Filter = "[级别归属] = '" & dr("级别归属") & "' And [工作单位] = '" & dr("工作单位") & "'"

            Case 2

                Filter = "[级别归属] = '" & dr("级别归属") & "' And [工作单位] = '" & dr("工作单位") & "' And [身份性质] = '" & dr("身份性质") & "'"

            Case 3

                Filter = "[级别归属] = '" & dr("级别归属") & "' And [工作单位] = '" & dr("工作单位") & "' And [身份性质] = '" & dr("身份性质") & "'And [姓名] = '" & dr("姓名") & "'"

        End Select

    End If

End If

Tables("干部花名册_table1").Filter = Filter