主题：返回窗口问题

beforeClose事件

If Tables("物品申报").Current.Locked = False Then
    Dim Result As DialogResult
    Result = MessageBox.Show("您填写的记录没有保存,请您要返回保存所填写的记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        e.cancel = True
    Else
        Tables("物品申报").Current.Delete
    End If
End If