- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据不一致 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16898)
-- 发布时间：2012/2/27 11:17:00
-- [求助]数据不一致
数据库中的数据和foxtable读取的数据不一致，字段值不匹配，分类号的值到保管期限里去了，保管期限的值到年度里去了，年度的值到分类号里去了，但是数据库中都是对应的，怎么变这样了？
此主题相关图片如下：未命名342.jpg
[此贴子已经被作者于2012-2-27 11:17:58编辑过]
-- 发布时间：2012/2/27 11:19:00
--
检查你的select语句。
-- 发布时间：2012/2/27 12:00:00
--
以下内容为程序代码:
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
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
-- 发布时间：2012/2/27 12:01:00
--
其他表也是仿这个的，都正常的~
-- 发布时间：2012/2/27 13:02:00
--
做个简单的例子发上来吧。