请大家看以下的程序有没有什么问题?当修改记录触发了以下事件并满足条件之后,程序会不断的循环这个事件,并一直显示"不能操作过期的记录".不能正常的中止,不知是什么问题引起的.procedure TDataModule1.ClientDataSet2BeforePost(DataSet: TDataSet);
begin
  
if dataset.FieldByName('MDate').AsDateTime <date then
begin
Application.MessageBox('不能操作过期的记录,'操作错误');
abort;
end;end;