- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]系统不载入已清算的记录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111743)
-- 发布时间：2017/12/28 16:02:00
-- [求助]系统不载入已清算的记录
老师你好！
我的项目是连着阿里云服务器，以前设置了按部门加载数据，现在我想不加载“已清算”或“已作废”（在主表“合同基础数据表”内有一列设置了三个选项：“执行中”、“已作废”、“已清算”）的所有记录。
请老师指教，谢谢！
-- 发布时间：2017/12/28 16:18:00
--
老师你好！帮助里找到的动态加载只有表，我想设置动态加载记录，谢谢！
-- 发布时间：2017/12/28 16:23:00
--
看看
http://www.foxtable.com/webhelp/scr/0670.htm
你之前怎么设置【按部门加载数据】的？贴出你写的代码。
-- 发布时间：2017/12/28 16:30:00
--
If User.Type = UserTypeEnum.Administrator Or UserTypeEnum.Developer Then
DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group = "总公司" Then
DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group Like "*区域" OrElse user.group Like "*直属" Then
DataTables("工程合同基础数据").LoadFilter = "所属区域公司 = \'" & User.Group & "\'"
Else If User.Group Like "*分公司" Then
DataTables("工程合同基础数据").LoadFilter = "分公司 = \'" & User.Group & "\'"
End If
DataTables("工程合同基础数据").Load()
在 LoadUserSetting里设置的
[此贴子已经被作者于2017/12/28 16:34:07编辑过]
-- 发布时间：2017/12/28 16:38:00
--
老师我想要全部用户
此主题相关图片如下：qq截图20171228163657.png
-- 发布时间：2017/12/28 16:55:00
--
改一下你4楼代码不就好了？
Dim Filter As string = "(列名 = \'执行中\' or 列名 is null)"
If User.Type = UserTypeEnum.Administrator Or UserTypeEnum.Developer Then
DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group = "总公司" Then
DataTables("工程合同基础数据").LoadFilter = "" & filter
Else If User.Group Like "*区域" OrElse user.group Like "*直属" Then
DataTables("工程合同基础数据").LoadFilter = "所属区域公司 = \'" & User.Group & "\' and " & filter
Else If User.Group Like "*分公司" Then
DataTables("工程合同基础数据").LoadFilter = "分公司 = \'" & User.Group & "\' and " & filter
End If
DataTables("工程合同基础数据").Load()
[此贴子已经被作者于2017/12/28 16:55:34编辑过]
-- 发布时间：2017/12/29 11:28:00
--
谢谢老师！已经解决。
现在我的项目中“合同数据基础数据”表中已经有2000多条记录，后面跟着20多个关联表，整个个项目中有2-3万条记录。造成程序启动时速度会很慢（加载后保存速度还是可以的）。
我想按照以日期（按照当前时间近三年时间）加载记录，是不是在原代码中加入？
如果我需要加载这些启动时没有加载的记录，是不是需要另外做一个窗口按钮加入命令追加数据？
请老师指教一下，谢谢！
[此贴子已经被作者于2017/12/29 11:32:56编辑过]
-- 发布时间：2017/12/29 11:32:00
--
1、同步加载关联表
http://www.foxtable.com/webhelp/scr/2894.htm
2、如果要追加数据，参考
http://www.foxtable.com/webhelp/scr/2932.htm
-- 发布时间：2018/1/1 12:19:00
--
老师元旦快乐！
我的意思是想手动加载项目事件LoadUserSetting中主表没有加载的记录（比如“合同状态=‘已清算’或‘已作废’”）
下面是按照老师指教的LoadUserSetting代码（只加载合同状态 = ‘执行中’的记录）：
Dim Filter As String = "(合同状态 = \'执行中\' or 合同状态 is null)"
If User.Type = UserTypeEnum.Administrator Or UserTypeEnum.Developer Then
DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group = "总公司" Then
DataTables("工程合同基础数据").LoadFilter = "" & filter
Else If User.Group Like "*区域" OrElse user.group Like "*直属" Then
DataTables("工程合同基础数据").LoadFilter = "所属区域公司 = \'" & User.Group & "\' And " & filter
Else If User.Group Like "*分公司" Then
DataTables("工程合同基础数据").LoadFilter = "分公司 = \'" & User.Group & "\' And " & filter
End If
DataTables("工程合同基础数据").Load()
请老师指教怎么手动条件加载，谢谢！
-- 发布时间：2018/1/1 19:16:00
--
如果要追加数据，参考
http://www.foxtable.com/webhelp/scr/2932.htm