procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbInsert then
    Query1.Append; // or Table1.Append;
end;

引言: 谢谢hagar! 但这样处理后就会出现：“每次增加都出现两条新的记录”的现象。很头疼啊！ 發表人 - todayzhang 於 2003/10/13 10:35:11

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbInsert then
  begin
    Table1.Append;
    abort;
  end
end;

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbInsert then begin
    Query1.Cancel;
    Query1.Append;
  end;
end;