发布的项目提示项目LoadUserSetting有错误代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:报错图片.rar

狐老爹请帮我检查一下，项目属性LoadUserSetting事件代码问题在那里。用开发板使用没问题，发布项目以后在本机打开时提示如题

for each rb as RibbonMenu.Tab in RibbonTabs
    rb.Visible = (Vars("用户名") <> "")
Next
With CurrentTable
    Dim Str1 As String = "今天是:" & Date.Today() & "日欢迎您:" & 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("管理员")
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("车间主管")
End If
项目属性SystemIdle事件代码：
With CurrentTable
    Dim Str1 As String = "今天是:" & Date.Today() & "日欢迎您:" & Tables("登陆")(0)("用户名")& " 使用佶龙机加二车间数据管理系统!"
    StatusBar.Message2 = Str1
End With

主题：发布的项目提示项目LoadUserSetting有错误代码