以下内容为程序代码:

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