主题：判断保存

 比如代码

If DataTables("表A").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表A").save
    Else
        msgbox("不保存")
    End If
End If