主题：报错

启动项目时报错，点击确定能正常进入。以前的不会。
请狐爸看看是怎么回事。


此主题相关图片如下：未命名.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

自己逐段删除测试，看看问题在那一段

我把表视图权限删除，正常了。
是不是{If User.Group = "管理员" Then}和If User.Group <> "管理员" Then两个条件有冲突

如果有这么多视图，我看还是增加两个分组比较简单。
比如增加班长分组，增加车间主管分组

打开视图的代码可以直接：
Tables("员工档案").OpenView(User.Group)