主题：[求助]

我创建了一【货品信息】窗口，给此窗口添加【关闭】功能，我想在关闭窗口的时候如果产品信息有改动过可以有提示跳出，是否需要保存，设置代码如下

 

 

 If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
 DataTables("货品信息").Save()
 End If

Forms("货品信息").Close

 

但是我发现，弹出的对话框即使选择“是”也会保存，选择“否”也会保存，这是什么原因呢

如果去掉提示框，就直接　Forms("货品信息").Close　　【货品信息】窗口的信息依然会保存已经修改的。

 

怎么设置能点击【关闭】而不修改内容，直接退出呢　　　请狐前辈们赐代码

If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    DataTables("货品信息").Save()
Else
    DataTables("货品信息").RejectChanges
End If

Forms("货品信息").Close