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

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
   
Else If e.Node.Text = "显示所有行" Then
    Tables("干部花名册_table1").Filter =""
End If
Tables("干部花名册_table1").Filter = Filter

运行结果及报错如下：