| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105991) |
| -- 作者：沪上游客 -- 发布时间：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 作用是某个操作员登录后，只能加载他所在部门的数据。请问老师能不能简化，我的项目是把部门作为分组，或者做一个部门表然后根据部门表加载数据。请老师指导！谢谢！ 另外如果增加分公司或区域公司等部门，还要开发者重新编写代码。谢谢！
|
| -- 作者：有点甜 -- 发布时间：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 |