- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 发布的项目提示项目LoadUserSetting有错误代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5442)
-- 发布时间：2009/12/11 15:58:00
-- 发布的项目提示项目LoadUserSetting有错误代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报错图片.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
-- 发布时间：2009/12/11 16:06:00
--
收到，等下次更新再看看吧