甜版,我在tabcontrol控件的SelectedIndexChanged事件中编了代码出现错误信息:
.NET Framework 版本:2.0.50727.5472
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,区队材料领用,TabControl1,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.NavPages("成品车间").Visible = False
nb.NavPages("铸造车间").Visible = False
nb.NavPages("包装车间").Visible = False
nb.NavPages("材料查询").Visible = False
nb.SelectedPage = nb.NavPages("拔模车间")
Else
nb.SelectedPage = nb.NavPages("材料查询")
End If
End Select
请指正,谢谢!