主题：[求助]treeview点击结点加载数据后的排序问题

以下内容为程序代码:

1 Dim Value()As String
2 Dim Filter As String
3
4 Value = e.Node.FullPath.Split("\")
5 If user.Name = "开发者" Or user.name = "管理员"
6 Select Case e.Node.Level
7 Case 0
8 Filter ="[nt] = '" & Value(0) & "'"
9 End Select
10 Else
11 Select Case e.Node.Level
12 Case 0
13 Filter ="[nt] = '" & Value(0) & "' And [qzh] = '" & User.Group & "'"
14 End Select
15 End If
16
17 If e.Node.Name="加载全部记录" Then
18 If user.Name = "开发者" Or user.name = "管理员"
19 Filter = "[_Identify] Is not null"
20 Else
21 Filter = "[qzh] = '" & User.Group & "'"
22 End If
23 End If
24
25 DataTables("ajk").LoadFilter = Filter
26 DataTables("ajk").Load()