\'\'\'
Dim 行政管理 As WinForm.TabControl = e.Form.Controls("TabControl_行政管理")

Select Case 行政管理.SelectedPage.name \'返回页面标题
Case "行政管理"
   
Case "考勤对象"
    Dim tbl As Table = Tables("主界面_Table_考勤对象表")
    If tbl.DataTable.HasChanges Then \'如果表格有修改
        Dim Result As DialogResult
        Result = MessageBox.Show("《考勤对象表》已修改！" & chr(13) & "您是否需保存？", "保存提示？", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            tbl.DataTable.Save() \'保存
            MessageBox.Show("保存成功！","操作成功提示！")
        Else
            tbl.DataTable.RejectChanges() \'撤消
            MessageBox.Show("撤消成功！","操作成功提示！")
        End If
    End If
Case "考勤参数"
   
Case "考勤数据"
   
Case "考勤记录"
   
Case "考勤报表"
   
Case Else
   
End Select

都可以正常使用，目的是想切换页面时检测如果有数据修改就提示是否进行修改。

但是当在关闭窗口时，切报错：

\'-----人事管理初始化模块----
For a As Integer = 0 To 人事管理.TabPages.count - 1
    If 人事管理.TabPages(a).name <> "人事管理" \'不是主界面时执行
        人事管理.TabPages(a).Visible = False \'隐藏
    End If
Next

\'-----人事管理初始化模块----
For b As Integer = 0 To 行政管理.TabPages.count - 1
    If 行政管理.TabPages(b).name <> "行政管理 " \'不是主界面时执行
        行政管理.TabPages(b).Visible = False \'隐藏
    End If
Next

\'-----人事管理初始化模块----
For c As Integer = 0 To 财务管理.TabPages.count - 1
    If 财务管理.TabPages(c).name <> "人事管理" \'不是主界面时执行
        财务管理.TabPages(c).Visible = False \'隐藏
    End If
Next

目的是想在打开窗口后只显示出TabControl_人事管理、TabControl_行政管理、TabControl_财务管理三个页面集合的主页面，其它的页面隐藏掉。

可是当不加以上代码时可以通过选择导航栏来选择TabControl_人事管理、TabControl_行政管理、TabControl_财务管理三个模块显示，加了代码后导航栏的按钮却直不了作用了。