改成:
  while not ADOTable1.Eof do
  begin
      ADOTable1.edit;
      ADOTable1.FieldValues['kjqj']:=aa;
      ADOTable1.FieldValues['pzrq']:=edit3.text;
      ADOTable1.post;
      ADOTable1.next;
  end;
---------后又不是刚刚的错误提示了, 而是什么Insert Erro .....等什么办?