以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]公式合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55453)
--  作者：荟美绘姿
--  发布时间：2014/8/17 9:47:00
--  [求助]公式合并

If User.IsRole("管理员") Then
        Tables("滤表").Visible = True
        Tables("Users").Visible = True
    Else
        Tables("滤表").Visible = False
        Tables("Users").Visible = False
End If
If User.IsRole("开发者") Then
        Tables("滤表").Visible = True
        Tables("Users").Visible = True
    Else
        Tables("滤表").Visible = False
        Tables("Users").Visible = False
End If

 

 

如何将以下两个条件合在一起

If User.IsRole("管理员") Then

If User.IsRole("开发者") Then

[此贴子已经被作者于2014-8-17 9:57:44编辑过]
--  作者：有点甜
--  发布时间：2014/8/17 10:11:00
--  
If User.IsRole("开发者") OrElse  User.IsRole("管理员")  Then
        Tables("滤表").Visible = True
        Tables("Users").Visible = True
    Else
        Tables("滤表").Visible = False
        Tables("Users").Visible = False
End If