Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户登录项目报错


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

主题：用户登录项目报错
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		用户登录项目报错  发帖心情 Post By：2019/10/23 15:21:00 [只看该作者]

发不出去的项目 用开发者和管理员登录不会报错，但是用别的用户名就会报错，以下是AfteLoad中的代码：
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20191023150435.jpg
图片点击可在新窗口打开查看
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
With tpb.Pages
    .Add("项目配方", "项目配方", "00022.ico").Collapsed = True
    .Add("配方数据", "配方数据", "09154.ico").Collapsed = True
    .Add("文档附件", "文档附件", "09148.ico").Collapsed = True
End With
Select Case User.Name
    Case "开发者"
        With tpb.Pages("项目配方").Links
            .Add("园林固废配方表", "园林固废配方表","01773.ico")
            .Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
            .Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")
            .Add("海砂配方表", "海砂配方表","01773.ico")
            .Add("风积砂配方表", "风积砂配方表","01773.ico")
            .Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")
            .Add("泉州砂配方表", "泉州砂配方表","01773.ico")
            .Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")
            .Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")
            .Add("金尾矿配方表", "金尾矿配方表","01773.ico")
            .Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")
            .Add("铬渣配方表", "铬渣配方表","01773.ico")
            .Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")
            .Add("碱渣配方表", "碱渣配方表","01773.ico")
            .Add("广丰泥配方表", "广丰泥配方表","01773.ico")
            .Add("硼泥配方表", "硼泥配方表","01773.ico")
            .Add("赤泥配方表", "赤泥配方表","01773.ico")
            .Add("地聚合物配方表", "地聚合物配方表","01773.ico")
            .Add("污泥配方表", "污泥配方表","01773.ico")
            
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("园林固废数据表", "园林固废数据表","01774.ico")
            .Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")
            .Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")
            .Add("海砂数据表", "海砂数据表","01774.ico")
            .Add("风积砂数据表", "风积砂数据表","01774.ico")
            .Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")
            .Add("泉州砂数据表", "泉州砂数据表","01774.ico")
            .Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")
            .Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")
            .Add("金尾矿数据表", "金尾矿数据表","01774.ico")
            .Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")
            .Add("铬渣数据表", "铬渣数据表","01774.ico")
            .Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")
            .Add("碱渣数据表", "碱渣数据表","01774.ico")
            .Add("广丰泥数据表", "广丰泥数据表","01774.ico")
            .Add("硼泥数据表", "硼泥数据表","01774.ico")
            .Add("赤泥数据表", "赤泥数据表","01774.ico")
            .Add("地聚合物数据表", "地聚合物数据表","01774.ico")
            .Add("污泥数据表", "污泥数据表","01774.ico")
            
        End With
        With tpb.Pages("文档附件").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")

        End With
        
    Case "管理员"
        With tpb.Pages("项目配方").Links
            .Add("园林固废配方表", "园林固废配方表","01773.ico")
            .Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
            .Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")
            .Add("海砂配方表", "海砂配方表","01773.ico")
            .Add("风积砂配方表", "风积砂配方表","01773.ico")
            .Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")
            .Add("泉州砂配方表", "泉州砂配方表","01773.ico")
            .Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")
            .Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")
            .Add("金尾矿配方表", "金尾矿配方表","01773.ico")
            .Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")
            .Add("铬渣配方表", "铬渣配方表","01773.ico")
            .Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")
            .Add("碱渣配方表", "碱渣配方表","01773.ico")
            .Add("广丰泥配方表", "广丰泥配方表","01773.ico")
            .Add("硼泥配方表", "硼泥配方表","01773.ico")
            .Add("赤泥配方表", "赤泥配方表","01773.ico")
.Add("地聚合物配方表", "地聚合物配方表","01773.ico")
            .Add("污泥配方表", "污泥配方表","01773.ico")
            
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("园林固废数据表", "园林固废数据表","01774.ico")
            .Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")
            .Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")
            .Add("海砂数据表", "海砂数据表","01774.ico")
            .Add("风积砂数据表", "风积砂数据表","01774.ico")
            .Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")
            .Add("泉州砂数据表", "泉州砂数据表","01774.ico")
            .Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")
            .Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")
            .Add("金尾矿数据表", "金尾矿数据表","01774.ico")
            .Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")
            .Add("铬渣数据表", "铬渣数据表","01774.ico")
            .Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")
            .Add("碱渣数据表", "碱渣数据表","01774.ico")
            .Add("广丰泥数据表", "广丰泥数据表","01774.ico")
            .Add("硼泥数据表", "硼泥数据表","01774.ico")
            .Add("赤泥数据表", "赤泥数据表","01774.ico")
.Add("地聚合物数据表", "地聚合物数据表","01774.ico")
            .Add("污泥数据表", "污泥数据表","01774.ico")
            
        End With
        With tpb.Pages("文档附件").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")
        End With
        
    Case "张羊"
        With tpb.Pages("项目配方").Links
            .Add("铬渣配方表", "铬渣配方表","01773.ico")
            .Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")
            .Add("赤泥配方表", "赤泥配方表","01773.ico")
            .Add("地聚合物配方表", "地聚合物配方表","01773.ico")
            
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("铬渣数据表", "铬渣数据表","01774.ico")
            .Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")
            .Add("赤泥数据表", "赤泥数据表","01774.ico")
            .Add("地聚合物数据表", "地聚合物数据表","01774.ico")
            
        End With
          
        With tpb.Pages("日志文档").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")
        End With
        
    Case "尹相会"
        With tpb.Pages("项目配方").Links
            .Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")
            .Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")
            .Add("金尾矿配方表", "金尾矿配方表","01773.ico")
            .Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")
            .Add("园林固废配方表", "园林固废配方表","01773.ico")
            
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")
            .Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")
            .Add("金尾矿数据表", "金尾矿数据表","01774.ico")
            .Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")
            .Add("园林固废数据表", "园林固废数据表","01774.ico")
            
        End With
          
        With tpb.Pages("日志文档").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")
        End With
        
    Case "李红林"
        With tpb.Pages("项目配方").Links
            .Add("海砂配方表", "海砂配方表","01773.ico")
            .Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")
            .Add("泉州砂配方表", "泉州砂配方表","01773.ico")
            .Add("碱渣配方表", "碱渣配方表","01773.ico")
            .Add("广丰泥配方表", "广丰泥配方表","01773.ico")
            .Add("硼泥配方表", "硼泥配方表","01773.ico")
            
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("海砂数据表", "海砂数据表","01774.ico")
            .Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")
            .Add("泉州砂数据表", "泉州砂数据表","01774.ico")
            .Add("碱渣数据表", "碱渣数据表","01774.ico")
            .Add("广丰泥数据表", "广丰泥数据表","01774.ico")
            .Add("硼泥数据表", "硼泥数据表","01774.ico")
            
        End With
             
        With tpb.Pages("日志文档").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")
        End With
        
    Case "林津"
        With tpb.Pages("项目配方").Links
            .Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
            .Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")
            .Add("风积砂配方表", "风积砂配方表","01773.ico")           
        End With
        
        With tpb.Pages("配方数据").Links
            .Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")
            .Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")
            .Add("风积砂数据表", "风积砂数据表","01774.ico")
            
        End With
                
        With tpb.Pages("日志文档").Links
            .Add("日志文档表", "日志文档表","01676.ico")
            .Add("XRD文档表", "XRD文档表","01676.ico")
            .Add("SEM文档表", "SEM文档表","01676.ico")
            .Add("XRF文档表", "XRF文档表","01676.ico")
        End With
        
        
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/23 15:27:00 [只看该作者]

With tpb.Pages("日志文档").Links

不存在这个名称的page
 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/23 15:31:00 [只看该作者]

发现了，老师，眼瞎了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07568 秒, 4 次数据查询