主题：角色问题

甜版这样写对吗?就是想角色为录入员的不显示如下表,以后添加的成员,角色定位为录入员 就不会显示这些表了是吗

Select Case User.IsRole("录入员")

    Case "孙丽霞"

       Tables("收入").Visible=False

       Tables("支出").Visible=False

       Tables("当月二保").Visible=False

       Tables("发送内容").Visible=False

       Tables("应收款").Visible=False

       Tables("账务查询").Visible=False

       Tables("账务支出").Visible=False

       Tables("北斗续费").Visible=False

       Tables("月度查询").Visible=False

       Tables("已付款").Visible=False

       Tables("转籍档案").Visible=False

       Tables("日志").Visible=False