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