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

窗口TreeView1控件的NodeMouseDoubleClick事件代码如下。双击“加载所有数据”节点时，没有数据显示（如图示），双击其它节点则数据正常加载，请问老师是什么问题？

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

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

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

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

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

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

End If

e.Form.Controls("TextBox1").Value = 1 & "/" & DataTables("S征地记录").TotalPages

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

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

主题：加载树双击“加载所有数据”节点时，没有数据显示