主题：目录树筛选功能

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

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

 

此主题相关图片如下：截图20150303113827.png