专家坐堂-加载树双击“加载所有数据”节点时，没有数据显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String = "1=1"

Dim dr = e.node.FullPath.split("\\") \'获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter = "[项目名称] = \'" & dr(0) & "\'"

Case 1

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\'"

Case 2

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\'"

Case 3

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\'"

Case 4

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\' And [屯] = \'" & dr(4) & "\'"

Case 5

Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\' And [村] = \'" & dr(3) & "\' And [屯] = \'" & dr(4) & "\'And [组] = \'" & dr(5) & "\'"

End Select

End If

If User.Name = "开发者" Or User.Name = "管理员" Then

DataTables("S征地记录").LoadFilter = filter

DataTables("S征地记录").LoadOver="协议书编号"

DataTables("S征地记录").LoadReverse = True

DataTables("S征地记录").LoadTop= 5

DataTables("S征地记录").Load

Tables("S征地记录").sort="协议书编号"

Else

DataTables("S征地记录").loadfilter = "(乡 = \'" & User.Name & "\' or 县 = \'" & User.Name & "\' or 项目名称 = \'" & User.Name & "\') and " & Filter