经过两天的间断测试，发现一个直接无法理解的现象。
第一、有底纹的代码被注释后，需要加载的表无法全部加载，若取消注释则能完全加载。
第二、取消注释后能完全加载，但是加载过程中也不会弹出窗口。
第三、关于老师给的关于检测的窗口代码，同样也是不会弹出的。
Select Case e.DataTableName
Case "广告费","加v","分摊","易途","游客跟踪表","客服目标"
e.Filter = "[_Identify] Is Null"
End Select
If e.User.Type = UserTypeEnum.Developer Then '是开发者加载所有表
DataTables.Load("分摊|PBI|PBIday1|加V|SEO|客服|客服目标|广告费|易途|游客跟踪表")
End If
Select Case e.DataTableName
Case "PBI","PBIday1","行政区域","客服","SEO","广告费","SEO分摊","游客跟踪表" ,"客服目标","易途"
If e.User.Group = "数据员" Then
'MessageBox.show(user.Group & ":" & e.Cancel )
e.Cancel = False
End If
Case Else
e.Cancel = True
End Select
Select Case e.DataTableName
Case "SEO","SEO分摊","客服","游客跟踪表" ,"行政区域"
If e.User.Group = "客服" Or e.user.group = "组长" Or e.User.Group = "SEO" Then
e.Cancel = False
End If
Case Else
e.Cancel = True
End Select
Select Case e.DataTableName
Case "游客跟踪表","易途","广告费","客服目标","客服","加V","SEO分摊","SEO" ,"行政区域"
If e.User.Group = "管理员" Then
e.Cancel = False
End If
Case Else
e.Cancel = True
End Select
加好友 
发短信
Post By：2020/3/12 19:43:00 [显示全部帖子]
