主题：执行关闭程序

怎样在主窗体上设置一个关闭按钮，单击按钮执行关闭程序，并在关闭程序之前先判断是否有所有的表内容是否有改过。来执行是保存修改后退出程序还是不保存修改过的数据直接退出程序。

For Each dt As DataTable In DataTables
    If dt.HasChanges Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables.save
            Exit For
        End If
    End If
Next

是可以判断数据表中的数据是否修改过，也能保存，我的意思是保存数据或选择不保存数据后需要关闭程序

最后加上：Syscmd.Project.Exit()