主题：表单没有了

下面代码写到，LoadUserSetting事件去

Select Case User.Name
    Case "车间主任","统计工程师","车间工艺工程师","采购工程师"
        Tables("工资表").Visible = False
        Tables("随件卡").Visible = True
        Tables("员工月工时表").Visible = True
    Case "操作员工"
        Tables("随件卡").Visible = False
        Tables("员工月工时表").Visible = False
        Tables("工资表").Visible = False
    Case Else
        Tables("随件卡").Visible = True
        Tables("员工月工时表").Visible = True
        Tables("工资表").Visible = True
End Select