To liuxing73151,你的代码有问题,当你以小潘进去的时候,只会执行红色的部分:
Select Case User.Name
Case "小林","小赵"
Tables("记帐本").Visible = False
Case "小赵","小潘"
Tables("五金出库管理").Visible = False
Case "小赵","小潘"
Tables("五金入库管理").Visible = False
Case "小潘","小林"
Tables("成品库管理").Visible = False
End Select
原因和方法两天前我就告诉你了,请看:
http://help.foxtable.com/topics/2242.htm
根据这段帮助,你的代码改为:
Select Case User.Name
Case "小林","小赵"
Tables("记帐本").Visible = False
End Select
Select Case User.Name
Case "小赵","小潘"
Tables("五金出库管理").Visible = False
End Select
Select Case User.Name
Case "小赵","小潘"
Tables("五金入库管理").Visible = False
End Select
Select Case User.Name
Case "小潘","小林"
Tables("成品库管理").Visible = False
End Select