主题：窗口按钮代码

老师，我的窗口按钮设置如下代码不执行。如果不加“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

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

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