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

你直接上例子吧, 有例子早就搞定了,来来回回那么多次!

我在窗口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编辑过]

老兄，做个例子发上来，代码已经看不出问题了。

或者你用这个方法自己分析一下，看看问题出在哪一行代码：

http://www.foxtable.com/help/topics/1485.htm

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

以下代码我写在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编辑过]

以下是引用fszyhzg在2013-9-12 11:18:00的发言：
代码是没问题，就是觉得奇怪啊，一关闭首页窗口就提示那错误！唉～～

关闭首页窗口，关alterload什么事？看看有没有在beforeclose/afterclose里写了代码。

记住一点有无赋值给_UserGroup ?

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