专家坐堂-这个代码如何优化了Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码如何优化了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17945)

--  作者：冰淇淋小子
--  发布时间：2012/3/29 14:19:00
--  这个代码如何优化了
我利用的是菜单权限功能需求：咨询.售后.网络.合作。登陆的时候，功能区的菜单都看不了。全部不显示 If User.Name = "咨询" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "网络" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "售后" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False Else If User.Name = "合作" Then RibbonTabs("Common").Visible = False RibbonTabs("Table").Visible = False RibbonTabs("Project").Visible = False RibbonTabs("Print").Visible = False RibbonTabs("Other").Visible = False End If 这个代码应该如何优化了。
[此贴子已经被作者于2012-3-29 14:22:25编辑过]

--  作者：czy
--  发布时间：2012/3/29 14:31:00
--
Select Case User.Name
    Case "咨询","网络","售后","合作"
        RibbonTabs("Common").Visible = False
        RibbonTabs("Table").Visible = False
        RibbonTabs("Project").Visible = False
        RibbonTabs("Print").Visible = False
        RibbonTabs("Other").Visible = False
End Select

--  作者：冰淇淋小子
--  发布时间：2012/3/29 14:38:00
--
谢谢。