主题：请大神帮忙看下加载表的表达示，哪出问题

Select Case e.DataTableName
    Case "表Ａ","表Ｂ","表Ｃ","表Ｄ","表Ｅ","表Ｆ"
        e.Cancel = (e.User.group = "用户")
    Case "表Ａ","表Ｂ","表Ｇ","表Ｄ"
        e.Cancel = (e.User.group = "客户")
    Case "表Ａ","表Ｃ","表Ｄ","表Ｙ","表Ｇ"
        e.Cancel = (e.User.group = "管理")
End Select

没看明白你想干嘛

 

 

Case子句中，逗号相当于Or

 

所以除了表G会执行第二个子句，表Y会执行第三个子句，其他都执行第一个子句。

 

 

 

 

 

 

 

项目事件

BeforeLoadOuterTabl

想表达：

  用户组不加载 "表Ａ","表Ｂ","表Ｃ","表Ｄ","表Ｅ","表Ｆ"
      "客户"组不加载 "表Ａ","表Ｂ","表Ｇ","表Ｄ"
        "管理"组不加载"表Ａ","表Ｃ","表Ｄ","表Ｙ","表Ｇ"
       

那现在有什么问题？报什么错？

出现的问题是：用户组和客户组只不加载部份表，而管理组所有表都加载了

Select Case e.user.Group
    Case "用户"
        Select Case e.DataTableName
            Case "表A","表B","表C","表D","表E","表F"
                e.Cancel = True
        End Select
    Case "客户"
        Select Case e.DataTableName
            Case "表A","表B","表G","表D"
                e.Cancel = True
        End Select
    Case "管理"
        Select Case e.DataTableName
            Case "表A","表C","表D","表Y","表G"
                e.Cancel = true
        End Select
End Select

或者这样写

 

Select Case e.DataTableName
    Case "表A","表B","表C","表D","表E","表F"
        e.Cancel = (e.User.group = "用户")
End Select
Select Case e.DataTableName
    Case "表A","表B","表G","表D"
        e.Cancel = (e.User.group = "客户")
End Select
Select Case e.DataTableName
    Case "表A","表C","表D","表Y","表G"
        e.Cancel = (e.User.group = "管理")
End Select