在选择“是”之后如果再在“保存”对话框中选择了“取消”就无法保存当前的操作了。
请那位高手指点一下！！！！！

代码如下：
Private Sub Form_Unload(Cancel As Integer)
a = MsgBox("文件已改变，您真的要保存吗？", vbExclamation + vbYesNoCancel, App.Title)
If a = vbYes Then
    CommonDialog1.DialogTitle = "保存"
    CommonDialog1.Filter = "*.*"
    CommonDialog1.ShowSave
ElseIf a = vbNo Then
    End
Else
    Cancel = True
    Exit Sub
End If
End Sub

把代码放到Query_Unload事件中！Query_Unload事件有一个参数Cancel，当设置其为True时为取消关闭。

把代码变成: Private Sub Form_Unload(Cancel As Integer) a = MsgBox("文件已改变，您真的要保存吗？", vbExclamation + vbYesNoCancel, App.Title) If a = vbYes Then CommonDialog1.DialogTitle = "保存" CommonDialog1.Filter = "*.*" CommonDialog1.ShowSave If Trim(CommonDialog1.Filename) = "" Then Cancel = True //如果选择了取消， Filename 属性会变成空字符串(即使在对话框中输入了文件名) ElseIf a = vbNo Then End Else Cancel = True Exit Sub End If End Sub

[此贴子已经被作者于2005-3-18 19:35:05编辑过]

谢谢，问题已解决。