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