主题：[求助]目录树加载后台数据

Dim Filter As String

If e.node.Text = "显示全部" Then

    Filter = ""

Else

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

    Select Case e.Node.Level

        Case 0

            Filter = "[园区名称] = '" & dr("园区名称") & "'"

        Case 1           

            Filter = "[园区名称] = '" & dr("园区名称") & "' And [地块名称] = '" & dr("地块名称") & "' "

        Case 2

            Filter = "[园区名称] = '" & dr("园区名称") & "' And [地块名称] = '" & dr("地块名称") & "' And [监测点] = '" & dr("监测点") & "'"

    End Select

End If

DataTables("监控数据").LoadFilter = Filter

DataTables("监控数据").Load()