专家坐堂-权限问题，挺急的在线等老师解答Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  权限问题，挺急的在线等老师解答  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=137518)

--  作者：bjw5211521
--  发布时间：2019/7/8 16:34:00
--  权限问题，挺急的在线等老师解答

Select Case e.DataTableName
Case "集团"
        e.Cancel = (e.User.Name = "xxx")
    Case "1"
        e.Cancel = (e.User.Name = "xxx")
    Case "2"
        e.Cancel = (e.User.Name = "xxx")
    Case "3"
        e.Cancel = (e.User.Name = "xxx")
    Case "4"
        e.Cancel = (e.User.Name = "xxx")
    Case "5"
        e.Cancel = (e.User.Name = "xxx")
    Case "6"
        e.Cancel = (e.User.Name = "xxx")
    Case "水7"
        e.Cancel = (e.User.Name = "xxx")
End Select

我一共8张表格我需要让每一个部分只看到属于各部门的表格，但是我在BeforeLoadInnerTable里打进去这个代码的话，只有一个部门是只能看到自己的部门表格，其他的仿佛无效一般。是不是一张表不能多次设定。还是需要什么特定的分隔符号

--  作者：有点蓝
--  发布时间：2019/7/8 16:40:00
--
人名可以处理一下，其它代码请完整放上来。

所有的表都是内部表吗

--  作者：bjw5211521
--  发布时间：2019/7/8 16:44:00
--
这是一个部门的代码单独这样放上去是完全没问题。但是我每个部门需要屏蔽掉其他7个部门，同样的工作，重复第二次的时候也就是第二个部门的时候，我重复上列的代码，ID我也改掉了，但是就是不生效。

--  作者：bjw5211521
--  发布时间：2019/7/8 16:48:00
--

Select Case e.DataTableName
Case "集团"
        e.Cancel = (e.User.Name = "xxx")
    Case "1"
        e.Cancel = (e.User.Name = "xxx")
    Case "2"
        e.Cancel = (e.User.Name = "xxx")
    Case "3"
        e.Cancel = (e.User.Name = "xxx")
    Case "4"
        e.Cancel = (e.User.Name = "xxx")
    Case "5"
        e.Cancel = (e.User.Name = "xxx")
    Case "6"
        e.Cancel = (e.User.Name = "xxx")
    Case "水7"
        e.Cancel = (e.User.Name = "xxx")
Case "xxx"
        e.Cancel = (e.User.Name = "集团")
    Case "1"
        e.Cancel = (e.User.Name = "集团")
    Case "2"
        e.Cancel = (e.User.Name = "集团")
    Case "3"
        e.Cancel = (e.User.Name = "集团")
    Case "4"
        e.Cancel = (e.User.Name = "集团")
    Case "5"
        e.Cancel = (e.User.Name = "集团")
    Case "6"
        e.Cancel = (e.User.Name = "集团")
    Case "水7"
        e.Cancel = (e.User.Name = "集团")
End Select

这个版式也试过，每一个部门单独
Select Case e.DataTableName  +End Select 也不行

--  作者：狐狸爸爸
--  发布时间：2019/7/8 17:20:00
--
没看懂你的意思，请描述清楚问题。
此外注意同一个Select Case语句中，相同的Case值只会执行一次：
所以：
Select case v
case 1

case 2

case 1 ‘ 这个不会执行
End Select

解决办法：
http://www.foxtable.com/webhelp/topics/2242.htm

--  作者：bjw5211521
--  发布时间：2019/7/8 17:23:00
--
问题解决了！十分感谢