以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65690)
--  作者：rvhfpx
--  发布时间：2015/3/20 16:04:00
--  [求助]

项目事件

 

AfterOpenProject

 

Select Case User.Name

    Case "管理员","周绍兴","李彩萍","黄亚茹","张艳玲","常浩","于士保"

        Tables("开发者信息表").Visible = False

    Case "管理员","周绍兴","李彩萍","黄亚茹","张艳玲","常浩","于士保"

        Tables("收款明细").Visible = False

    Case "管理员","周绍兴","李彩萍","黄亚茹","张艳玲","常浩","于士保"

        Tables("客户信息").Visible = False

End Select

加载了事件，但用户打开项目还是可以看到相关表，只有“开发者信息”看不到，不知错在哪里了，请帮助，谢谢了

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:公司.table

[此贴子已经被作者于2015/3/20 16:05:16编辑过]
--  作者：Bin
--  发布时间：2015/3/20 16:07:00
--  
Case执行一个,后面就不执行的了.你应该

Select Case User.Name

    Case "管理员","周绍兴","李彩萍","黄亚茹","张艳玲","常浩","于士保"

        Tables("开发者信息表").Visible = False

         Tables("客户信息").Visible = False

         Tables("收款明细").Visible = False

        

End Select
--  作者：rvhfpx
--  发布时间：2015/3/21 8:09:00
--  

2、让不同用户查看不同的表

例如在项目事件AfteOpenProject事件中设置代码：

Select Case User.Name
    Case "张三","李四"
        Tables("表A").Visible = False
    Case "王五"
        Tables("表B").Visible = False
End Select

即可使得张三或李四打开项目后，将看不到表A，王五打开项目后，将看不到表B，不过这些表仍然可以通过代码使用。


以上是帮助上的，这样为什么又可以呢，请指点，谢了
--  作者：Bin
--  发布时间：2015/3/21 8:45:00
--  
仔细看看帮助和你的,是不一样的哦
--  作者：rvhfpx
--  发布时间：2015/3/21 9:49:00
--  
多谢版主了