以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口按钮代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62431)
--  作者：爱相随
--  发布时间：2014/12/31 17:33:00
--  窗口按钮代码

老师，我的窗口按钮设置如下代码不执行。如果不加“AND”或“ANDALSO”就可以，加了就不行，请问是什么原因呢，谢谢！！

 

If User.group = "高科控股集团" And User.IsRole("集团财务") Then
   Tables("ZJJHb1").visible=True
   MainTable=Tables("ZJJHb1")
ElseIf User.group = "高科开发建设" And User.IsRole("子公司财务") Then
    Tables("ZJJHb2").visible=True
    MainTable=Tables("ZJJHb2")
ElseIf User.group = "贵州望城投资" And User.IsRole("子公司财务") Then
     Tables("ZJJHb3").visible=True
     MainTable=Tables("ZJJHb3")
ElseIf User.group = "高科置业发展" And User.IsRole("子公司财务") Then
     Tables("ZJJHb4").visible=True
     MainTable=Tables("ZJJHb4")
ElseIf User.group = "集团财务" Then
     Tables("ZJJHb").visible=True
     MainTable=Tables("ZJJHb")
ElseIf User.group = "集团成员" Then
     Tables("ZJJHb").visible=True
     MainTable=Tables("ZJJHb")
ElseIf User.group = "系统管理员" Then
     Tables("ZJJHb").visible=True
     MainTable=Tables("ZJJHb")
End If
--  作者：有点甜
--  发布时间：2014/12/31 17:34:00
--  

 什么不行？说明不满足。你msgbox看一下值

 

 Msgbox(user.Group & "   " & user.Roles)