退出时检查修改动作

 

If DBEngine.IsModified Or DBEngine.IsNewRecord Then

 

ret = DBEngine.MsgBox1("记录发生改变是否保存?", 3)

 

If ret = 1 Then DBEngine.Continue = False   '取消

 

If ret = 6 Then

 

If CheckBefore Then

Exit Sub

 

DBEngine.SaveRecord

 

End If

 

End If