当前用户所负责的行是分页加载的，以下代码只能生成当前加载页的加载树，我想要生成根据当前用户所负责的所有行的数据生成加载树，请问老师该怎么修改？
注：不同的用户所能加载的数据是不一样的。
窗口事件代码：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("S记录其它", "项目名称|县|乡镇|村屯|屯|组")
trv.Nodes.Insert("显示所有行",0)
加载树事件代码：
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
加好友 
发短信
Post By：2017/12/23 15:00:00 [显示全部帖子]
