主题：[求助]在SelectedIndexChanging事件中设置代码，当关闭窗口按钮时报错。

'''
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

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

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