Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]系统不载入已清算的记录


  共有1915人关注过本帖树形打印复制链接

主题：[求助]系统不载入已清算的记录
帅哥哟，离线，有人找我吗？
沪上游客
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		[求助]系统不载入已清算的记录  发帖心情 Post By：2017/12/28 16:02:00 [只看该作者]

老师你好！
我的项目是连着阿里云服务器，以前设置了按部门加载数据，现在我想不加载“已清算”或“已作废”（在主表“合同基础数据表”内有一列设置了三个选项：“执行中”、“已作废”、“已清算”）的所有记录。
请老师指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/12/28 16:18:00 [只看该作者]

老师你好！帮助里找到的动态加载只有表，我想设置动态加载记录，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/28 16:23:00 [只看该作者]

看看

 

http://www.foxtable.com/webhelp/scr/0670.htm

 

你之前怎么设置【按部门加载数据】的？贴出你写的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/12/28 16:38:00 [只看该作者]

老师我想要全部用户
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171228163657.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2017/12/29 11:28:00 [只看该作者]

谢谢老师！已经解决。
现在我的项目中“合同数据基础数据”表中已经有2000多条记录，后面跟着20多个关联表，整个个项目中有2-3万条记录。造成程序启动时速度会很慢（加载后保存速度还是可以的）。
我想按照以日期（按照当前时间近三年时间）加载记录，是不是在原代码中加入？
如果我需要加载这些启动时没有加载的记录，是不是需要另外做一个窗口按钮加入命令追加数据？
请老师指教一下，谢谢！
[此贴子已经被作者于2017/12/29 11:32:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/29 11:32:00 [只看该作者]

1、同步加载关联表

 

http://www.foxtable.com/webhelp/scr/2894.htm

 

2、如果要追加数据，参考

 

http://www.foxtable.com/webhelp/scr/2932.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：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()

请老师指教怎么手动条件加载，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/1 19:16:00 [只看该作者]

如果要追加数据，参考

 

http://www.foxtable.com/webhelp/scr/2932.htm
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06738 秒, 4 次数据查询