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


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

主题：[求助]系统不载入已清算的记录
帅哥哟，离线，有人找我吗？
沪上游客
 小大  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楼 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师我想要全部用户
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20171228163657.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  5楼 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
沪上游客
 小大  6楼 | 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()

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


加好友 发短信
等级：童狐 帖子：266 积分：2150 威望：0 精华：0 注册：2012/3/28 16:49:00 		  发帖心情 Post By：2018/1/4 10:16:00 [显示全部帖子]

老师您好！
前面我没有表达清楚，其实就是主表追载记录，然后同步加载子表关联记录。
也就是说怎么设置父表的手动条件追载记录，怎么写代码？我试了按条件刷新记录，主表记录能进来，但不能同步子表。
谢谢！

[此贴子已经被作者于2018/1/4 10:21:54编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05005 秒, 5 次数据查询