专家坐堂-[求助]目录树加载后台数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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()