求教如何设置tabcontrol的页面打开控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求教如何设置tabcontrol的页面打开控制

tabcontrol有9个页面的，我想设置成每点击一个页面由_usergroup 控制我在SelectedIndexChanging事件中设置的

我自己写的代码：Dim tb As WinForm.Tabcontrol = e.sender

If _UserGroup = "业务部" Then

tb = Forms("首页").Controls("TabControl1").TabPages(0)

Else MessageBox.Show("非业务部人员无法进入!")

End If

我写的代码明显是错的，请高手指点～～～～～～～～·

[此贴子已经被作者于2013-9-11 14:29:09编辑过]

狐爸，求详解，我只是希望在首页打开时能控制对应部门的人员打开tabcontrol页面，我不想隐藏页面啊～～～

[此贴子已经被作者于2013-9-11 14:35:38编辑过]

非常感谢，请问能否设置成直接按usergroup登录后打开对应的页面呢

非常感谢两位～～

噢～～还是有提示错误啊！
图片点击可在新窗口打开查看

此主题相关图片如下：20130918.jpg

发布打开后我选择是采购部的员工登录的，但首页还是以第一页面打开～

狐爸！bin！急救啊～～～～～～～～～～～～～～～～

[此贴子已经被作者于2013-9-12 9:45:26编辑过]

我在窗口aferload事件设置：Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

Select Case _UserGroup

Case "业务部"

tab.SelectedIndex = 0

Case "采购部"

tab.SelectedIndex = 1

end select

此主题相关图片如下：20130909155958.jpg

SelectedIndexChanging事件：

Dim tb As WinForm.Tabcontrol = e.sender
Select Case tb.TabPages(e.newindex).Name
    Case "业务销售"
        If _UserGroup <> "业务部" Then
            e.cancel =True
            MessageBox.Show("非业务部人员无法进入!")
        End If
    Case "行政管理"
        If _UserGroup <> "行政部" Then
            e.cancel =True
            MessageBox.Show("非办公室人员无法进入!")
        End If
End Select

[此贴子已经被作者于2013-9-12 10:21:32编辑过]

代码是没问题，就是觉得奇怪啊，一关闭首页窗口就提示那错误！唉～～

以下代码我写在afterload事件中：

Dim tab As winform.tabcontrol = e.Form.controls("tabcontrol1")

Select Case _usergroup

Case "业务部"

If _UserGroup <> "业务部" Then

MessageBox.Show("非业务人员无法进入!")

Else

tab.Selectedindex = 0

End If

Case "采购部"

If _UserGroup <> "采购部" Then

MessageBox.Show("非采购人员无法进入!")

Else

tab.Selectedindex = 1

End If

Case "物控部"

If _UserGroup <> "物控部" Then

MessageBox.Show("非仓库人员无法进入!")

Else

tab.Selectedindex = 2

End If

Case "生产部"

If _UserGroup <> "生产部" Then

MessageBox.Show("非生产人员无法进入!")

Else

tab.Selectedindex = 3

End If

Case "品质部"

If _UserGroup <> "品质部" Then

MessageBox.Show("非品管人员无法进入!")

Else

tab.Selectedindex = 4

End If

Case "工程部"

If _UserGroup <> "工程部" Then

MessageBox.Show("非工程人员无法进入!")

Else

tab.Selectedindex = 5

End If

Case "行政部"

If _UserGroup <> "行政部" Then

MessageBox.Show("非行政部人员无法进入!")

Else

tab.Selectedindex = 6

End If

Case "财务部"

If _UserGroup <> "财务部" Then

MessageBox.Show("非财务人员无法进入!")

Else

tab.Selectedindex = 7

End If

Case "管理组"

If _UserGroup <> "管理组" Then

e.cancel =True

MessageBox.Show("非管理员无法进入!")

Else

tab.Selectedindex = 8

End If

End Select

[此贴子已经被作者于2013-9-12 11:28:27编辑过]

主题：求教如何设置tabcontrol的页面打开控制