Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
沪上游客
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If User.Type = UserTypeEnum.Administrator Or UserTypeEnum.Developer Then
    DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group = "总公司" Then
    DataTables("工程合同基础数据").LoadFilter = ""
Else If User.Group = "上海区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "南京区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "无锡区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "苏州区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "南通区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "宜兴区域" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "总公司直属" Then
    DataTables("工程合同基础数据").LoadFilter = "录入部门 = '" & User.Group & "'"
Else If User.Group = "天津分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "上海分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "南京分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "马鞍山分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "无锡分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "常熟分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "云南分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "镇江分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "扬州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "淮安分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "合肥分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "德州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "徐州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "江阴分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "张家港分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "无锡岩土分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "常州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "苏州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "苏州园区分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "吴江分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "太仓分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "昆山分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "云南分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "南通分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "泰州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "泰兴分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "连云港分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "盐城分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
Else If User.Group = "湖州分公司" Then
    DataTables("工程合同基础数据").LoadFilter = "分公司 = '" & User.Group & "'"
End If

老师你好！这段代码是在项目事件中LoadUserSetting 
作用是某个操作员登录后，只能加载他所在部门的数据。请问老师能不能简化，我的项目是把部门作为分组，或者做一个部门表然后根据部门表加载数据。请老师指导！谢谢！
另外如果增加分公司或区域公司等部门，还要开发者重新编写代码。谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/30 17:02: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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询