主题：窗口加载表视图问题

不同用户组加载不同表视图，在窗口AfterLoad事件怎么不行 ，应该怎么做。谢谢

Select Case Vars("用户组")

    Case "管理员"

        Tables("员工档案").OpenView("管理员")

        Tables("员工档案.工资调整").OpenView("管理员")

        Tables("员工档案.工龄调整").OpenView("管理员")

    Case Else

        Tables("员工档案").OpenView("车间主管")

        Tables("员工档案.工资调整").OpenView("车间主管")

        Tables("员工档案.工龄调整").OpenView("车间主管")

End Select