代码是灵活的,例如:
Case "授权表" MainTable = Tables("授权表")
改为:
Case "授权表"
If Tables("授权表").Visible Then MainTable = Tables("授权表")
Else
MessageBox.show("你无权打开此表")
End If