各位老师，我想实现通过动态的用目录树对数据进行筛选，但是问题就是绑定的表在变，每个数据表的筛选分组不一样，然后我编了如下代码，但是系统说，如截图，我需要怎么修改

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow
If Tables("共享数据_table1").DataSource =DataTables("园区") Then\'对于table表的判定
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 2
                Filter = "[所在省份] = \'" & dr("所在省份") & "\' And [建园状态] = \'" & dr("建园状态") & "\' And [园区名称] = \'" & dr("园区名称") & "\'"
            Case 1
                Filter = "[所在省份] = \'" & dr("所在省份") & "\' And [建园状态] = \'" & dr("建园状态") & "\'"
               
            Case 0
                Filter = "[所在省份] = \'" & dr("所在省份") & "\'"
               
        End Select
    End If
ElseIf Tables("共享数据_table1").DataSource =DataTables("地块") Then
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            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