- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5510)
-- 发布时间：2009/12/15 14:22:00
-- 报错
启动项目时报错，点击确定能正常进入。以前的不会。
请狐爸看看是怎么回事。
此主题相关图片如下：未命名.bmp
LoadUserSetting代码：
for each rb as RibbonMenu.Tab in RibbonTabs
rb.Visible = (Vars("用户名") <> "")
Next
Dim StartDate As Date = Date.Today
With StartDate
Dim Str1 As String = "今天是:" & .Year & "年" & .Month & "月" & .Day & "日 欢迎您:" & Tables("登陆")(0)("用户名")& " 使用佶龙机加二车间数据管理系统!"
StatusBar.Message2 = Str1
End With
If User.Group = "管理员" Then
Tables("员工档案").OpenView("管理员")
Tables("员工档案.工资调整").OpenView("管理员")
Tables("员工档案.工龄调整").OpenView("管理员")
Tables("产品目录").OpenView("管理员")
Tables("产品工序").OpenView("管理员")
Tables("产品工艺").OpenView("管理员")
Tables("产品目录.产品工序").OpenView("管理员")
Tables("产品目录.产品工序.产品工艺").OpenView("管理员")
Tables("计划目录").OpenView("管理员")
Tables("计划工序").OpenView("管理员")
Tables("计划工艺").OpenView("管理员")
Tables("计划目录.计划工序").OpenView("管理员")
Tables("计划目录.计划工序.计划工艺").OpenView("管理员")
Tables("生产目录").OpenView("管理员")
Tables("生产工序").OpenView("管理员")
Tables("生产工艺").OpenView("管理员")
Tables("生产目录.生产工序").OpenView("管理员")
Tables("生产目录.生产工序.生产工艺").OpenView("管理员")
Tables("生产工艺.日报表").OpenView("管理员")
End If
If User.Group <> "管理员" Then
Tables("员工档案").OpenView("车间主管")
Tables("员工档案.工资调整").OpenView("车间主管")
Tables("员工档案.工龄调整").OpenView("车间主管")
Tables("产品目录").OpenView("车间主管")
Tables("产品工序").OpenView("班长")
Tables("产品工艺").OpenView("班长")
Tables("产品目录.产品工序").OpenView("车间主管")
Tables("产品目录.产品工序.产品工艺").OpenView("车间主管")
Tables("计划目录").OpenView("车间主管")
Tables("计划工序").OpenView("班长")
Tables("计划工艺").OpenView("班长")
Tables("计划目录.计划工序").OpenView("车间主管")
Tables("计划目录.计划工序.计划工艺").OpenView("车间主管")
Tables("生产目录").OpenView("车间主管")
Tables("生产工序").OpenView("班长")
Tables("生产工艺").OpenView("班长")
Tables("生产目录.生产工序").OpenView("车间主管")
Tables("生产目录.生产工序.生产工艺").OpenView("车间主管")
Tables("生产目录.生产工序.生产工艺.日报表").OpenView("班长")
End If
-- 发布时间：2009/12/15 15:11:00
--
自己逐段删除测试，看看问题在那一段
-- 发布时间：2009/12/15 16:27:00
--
我把表视图权限删除，正常了。
是不是{If User.Group = "管理员" Then}和If User.Group <> "管理员" Then两个条件有冲突
-- 发布时间：2009/12/15 17:40:00
--
如果有这么多视图，我看还是增加两个分组比较简单。
比如增加班长分组，增加车间主管分组
打开视图的代码可以直接：
Tables("员工档案").OpenView(User.Group)