|
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
| 
加好友 
发短信
Post By：2017/8/30 17:02:00 [显示全部帖子]
