并列窗口关闭 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
If e.TabPage.Text = "背景窗口" Then
    MessageBox.Show("窗口不能关闭!")
    e.Cancel = True
Else

    For Each t As Table In Tables
        If t.Form IsNot Nothing AndAlso t.Form.name = e.tabpage.text AndAlso t.DataTable.HasChanges Then
            If MessageBox.Show("此表单已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                t.Save()
                Forms(e.TabPage.Text).Close
                e.cancel = True
            Else
                If MessageBox.Show("您确定不保存!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                    t.DataTable.RejectChanges()
                    Forms(e.TabPage.Text).Close
                    e.cancel = True
                End If
            End If
            e.cancel = True
        End If
    Next

End If
End Sub

主题：并列窗口关闭