随都想来看看！

Question

If Trim(关键字)='' Then
begin
   ShowMessage(‘关键字不能为空');
   Exit;
end;

Answer 1

在数据集的beforepost事件中做处理~~

Answer 2

我也知道在beforepost里填写，但是我想知道的是怎么拦截这个消息？
谢谢，我在线等候！

Answer 3

procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  { TODO } 
  Action := daAbort;
end;嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻有总比没有好嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻