主题：[求助]数据不一致

以下内容为程序代码:

1 Dim Value()As String
2
3 Dim zc As String=""
4 MainTable = Tables("S2室藏文件")
5 With Tables("S2室藏文件")
6 Value = e.Node.FullPath.Split("\")
7 Select Case e.Node.Level
8 Case 0
9 zc ="[保管期限] = '" & Value(0) & "'"
10 Case 1
11 zc ="[保管期限] = '" & Value(0) & "' And [年度] = '" & Value(1) & "'"
12 End Select
13 If e.Node.Name="加载全部记录" Then
14 If user.Name = "开发者" Or user.name = "管理员"
15 zc = ""
16 DataTables("S2室藏文件").LoadFilter = "[id] is not null"
17 DataTables("S2室藏文件").Load
18 Else
19 zc = ""
20 DataTables("S2室藏文件").LoadFilter = "[全宗号] = '" & User.Group & "'"
21 DataTables("S2室藏文件").Load
22 End If
23 End If
24
25 .Filter =zc
26 End With