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

1楼

wqc360 发表于：2009/12/23 21:05:00

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

Select Case Vars("用户组")

Case "管理员"

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

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

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

Case Else

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

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

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

End Select

2楼

czy 发表于：2009/12/24 0:26:00

没发现问题。

3楼

czy 发表于：2009/12/24 0:35:00

楼主最好上传文件，让大家看看你到底哪个环节出现了问题。

4楼

czy 发表于：2009/12/24 0:57:00

似乎知道你的问题出在哪了。
切换用户时没有对全局变量赋值。
或许你应该改成这样

Vars("用户组") = User.Group

Select Case Vars("用户组")

Case "管理员"

……

End Select

5楼

wqc360 发表于：2009/12/24 8:55:00

已经解决，原因是我自己造成的，我在切换用户以后，已经隐藏了窗口设计，所以用其他用户打开的窗口还是原管理员打开的，窗口没有重新加载，我在打开窗口按钮代码前面加上关闭此窗口，再打开此窗口，窗口控件重新加载，OK，看到我要的效果了，谢谢C版

共5 条记录, 每页显示 10 条, 页签: [1]