写在 项目属性->afteropenproject事件中,没有效果啊,写错了地方?
'非管理员隐藏部分关联表和字典表
'If User.Type <> UserTypeEnum.Developer Then
If user.Group<>"管理员" Then
Tables("三甲条款_条款明细表").visible = False
Tables("三甲条款_持续改进表").visible = False
Else
Tables("三甲条款_条款明细表").visible = True
Tables("三甲条款_持续改进表").visible = True
End If