Foxtable(狐表)用户栏目专家坐堂 → 发布的项目提示项目LoadUserSetting有错误代码


  共有15150人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
wqc360
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
发布的项目提示项目LoadUserSetting有错误代码  发帖心情 Post By:2009/12/11 15:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报错图片.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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/11 16:06:00 [只看该作者]

收到,等下次更新再看看吧


 回到顶部