新手问题：在添加时检查表中是否有已存在的ID，大虾们不要吝啬啊～～

Question

//判断输入的ID是否存在
if Table1.FieldValues['ID']=Edit3.Text then
begin
  ShowMessage('该ID已存在');
  Edit3.SetFocus;
  Exit;
end;
小弟在运行这段程序时，在添加表中已有ID时总是报错，ID是主键，向大侠们求解～

Answer 1

Table1.BeforePost事件里写代码
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  if 判断ID不是已经存在 then
  begin
    ShowMessage('该ID已存在');
    Edit3.SetFocus;
    Abort;//!!!
  end;
end;

Answer 2

if table1.recordcount>0 then
 showmessage('该ID已存在');
 exit;