Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航栏显示的问题


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

主题：导航栏显示的问题
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 10:13:00 [只看该作者]


            Case "材料员1"
                nb.SelectedPage = nb.NavPages("工程")
                nb.NavPages("任务").Visible = False
                nb.NavPages("日历").Visible = False
                nb.NavPages("联系人").Visible = False
                nb.NavPages("工序").Visible = False
                nb.NavPages("工程").Visible = False
                nb.NavPages("工程").Visible = True
                nb.SelectedPage = nb.NavPages("工程")

 回到顶部
帅哥哟，离线，有人找我吗？
ypp1420
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1312 威望：0 精华：0 注册：2014/11/26 8:49:00 		  发帖心情 Post By：2015/2/11 11:12:00 [只看该作者]

甜版，我在测试例子中按你教的代码测试正常但是放到我的程序中，提示“5”后代码出现错误信息：
.NET Framework 版本：2.0.50727.5472
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,区队材料领用,综合窗口,SelectedIndexChanged
详细错误信息：
未将对象引用设置到对象的实例。
'------------------显示navbar相应内容------------
Select Case e.sender.SelectedPage.Text
    Case "材料管理"
        Dim nb As WinForm.NavBar = e.Form.Controls("综合窗口")
        If User.Group = "成品车间材料员" Then
            nb.NavPages("包装车间").Visible = False
            nb.NavPages("铸造车间").Visible = False
            nb.NavPages("拔模车间").Visible = False
            nb.NavPages("材料查询").Visible = False
            nb.SelectedPage = nb.NavPages("成品车间")
        ElseIf user.Group = "包装车间材料员" Then
            nb.NavPages("成品车间").Visible = False
            nb.NavPages("铸造车间").Visible = False
            nb.NavPages("拔模车间").Visible = False
            nb.NavPages("材料查询").Visible = False
            nb.SelectedPage = nb.NavPages("包装车间")
        ElseIf user.Group = "铸造车间材料员" Then
            nb.NavPages("成品车间").Visible = False
            nb.NavPages("包装车间").Visible = False
            nb.NavPages("拔模车间").Visible = False
            nb.NavPages("材料查询").Visible = False
            nb.SelectedPage = nb.NavPages("铸造车间")
        ElseIf user.Group = "拔模车间材料员" Then
            nb.SelectedPage = nb.NavPages("拔模车间")
            MessageBox.Show("1")
            nb.NavPages("成品车间").Visible = False
            MessageBox.Show("2")
            nb.NavPages("铸造车间").Visible = False
            MessageBox.Show("3")
            nb.NavPages("包装车间").Visible = False
            MessageBox.Show("4")
            nb.NavPages("材料查询").Visible = False
            MessageBox.Show("5")
            nb.NavPages("拔模车间").Visible = False '此句代码报错
            MessageBox.Show("6")
            nb.NavPages("拔模车间").Visible = True
            MessageBox.Show("7")
            nb.SelectedPage = nb.NavPages("拔模车间")
        Else
            nb.SelectedPage = nb.NavPages("材料查询")
        End If
End Select
再次麻烦甜版帮忙一下！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 11:14:00 [只看该作者]

 最上面的 nb.SelectedPage = nb.NavPages("拔模车间") 去掉
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 11:15:00 [只看该作者]

 如果出错，把出错的发上来看看，看有没有触发其它事件的代码了。

 回到顶部
帅哥哟，离线，有人找我吗？
ypp1420
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1312 威望：0 精华：0 注册：2014/11/26 8:49:00 		  发帖心情 Post By：2015/2/11 11:20:00 [只看该作者]

去掉也显示同样的错误！图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 11:22:00 [只看该作者]

 例子上传，看24楼

 回到顶部
帅哥哟，离线，有人找我吗？
ypp1420
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1312 威望：0 精华：0 注册：2014/11/26 8:49:00 		  发帖心情 Post By：2015/2/11 11:22:00 [只看该作者]

这代码没有问题的话，我自己再研究研究，看看其他地方有没有冲突的代码，如果我自己再解决不了的话再麻烦甜版！谢谢啦！图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
ypp1420
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1312 威望：0 精华：0 注册：2014/11/26 8:49:00 		  发帖心情 Post By：2015/2/11 16:36:00 [只看该作者]

甜版还是不行我做了一个例子，你用1登陆，给诊断一下是什么原因，谢谢！

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:navbar显示例子2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 16:43:00 [只看该作者]

 Case "材料员1"
                Systemready = False
                nb.NavPages("任务").Visible = False
                nb.NavPages("日历").Visible = False
                nb.NavPages("联系人").Visible = False
                nb.NavPages("工序").Visible = False
                nb.NavPages("工程").Visible = False
                nb.NavPages("工程").Visible = True
                nb.SelectedPage = nb.NavPages("工程")
                systemready = True

 回到顶部
帅哥哟，离线，有人找我吗？
ypp1420
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1312 威望：0 精华：0 注册：2014/11/26 8:49:00 		  发帖心情 Post By：2015/2/11 16:48:00 [只看该作者]

图片点击可在新窗口打开查看谢谢甜版！！！

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