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

你用这样写代码，在AfterLoad事件中，根据登录用户，隐藏其无权进入的页面即可。

SelectedIndexChanging事件：
 
Dim tb As WinForm.Tabcontrol = e.sender
Select Case tb.TabPages(e.newindex).Name
    Case "页面名称1","页面名称3"
        If _UserGroup <>  "业务部" Then
            e.cancel =True
            MessageBox.Show("非业务部人员无法进入!")
        End If
    Case "页面名称2","页面名称5"
        If _UserGroup <>  "办公室" Then
            e.cancel =True
            MessageBox.Show("非办公室人员无法进入!")
        End If
End Select

窗口AfterLoad事件：
 
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case _UserGroup
   case "张三"
        tab.SelectedIndex = 0
   case "李四"
        tab.SelectedIndex = 1
    case "王五"
        tab.SelectedIndex = 2
End Select

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

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

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