在beforeclose事件中写
判断是否改变用haschanges
If DataTables("费用设置").HasChanges Then If MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then DataTables("费用设置").Save Else DataTables("费用设置").RejectChanges End IfEnd Ife.Form.Close