Select Case e.DataTableName
Case "广告费","加v","分摊","易途","游客跟踪表","客服目标"
e.Filter = "[_Identify] Is Null"
End Select
If e.User.Type <> UserTypeEnum.Developer Then '是开发者加载所有表
Select Case e.User.Group
Case "数据员"
Select Case e.DataTableName
Case "PBI","PBIday1","行政区域","客服","SEO","广告费","SEO分摊","游客跟踪表" ,"客服目标","易途"
Case Else
e.Cancel = True
End Select
Case "客服" ,"组长" , "SEO"
Select Case e.DataTableName
Case "SEO","SEO分摊","客服","游客跟踪表" ,"行政区域"
Case Else
e.Cancel = True
End Select
Case "管理员"
Select Case e.DataTableName
Case "游客跟踪表","易途","广告费","客服目标","客服","加V","SEO分摊","SEO" ,"行政区域"
Case Else
e.Cancel = True
End Select
End Select
End If
加好友 
发短信
Post By：2020/3/14 11:35:00 [显示全部帖子]
