主题：窗口关闭的疑惑

这样试一试：

if MessageBox.Show("确实要关闭吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 6
     If e.Form.Controls("save").Enabled=True Then '需要保存数据时

         e.cancel=True
         MessageBox.Show("请完成编辑后再关闭!")
     Else
        Tables("outcontract").AllowEdit=False
     End If
Else
    e.cancel=True
End If