[Andrew_MSK]

Сообщение от NumLock

проверяй изменились ли поля:

Код:

if Table1.FieldByName('ELECTROMONTER').OldValue<>Table1.FieldByName('ELECTROMONTER').NewValue then

не работает (не добавляет данные, хотя меняю даты)

Код:

procedure TDataModule1.ZQuery_rabzona1BeforePost(DataSet: TDataSet);
begin
  with DataModule1.ZQuery_rabzona1 do
  begin
   if FieldByName('REGLAM_DATE').OldValue<>FieldByName('REGLAM_DATE').NewValue then
      with  DataModule1.ZQuery_rabzona1 do
   begin
      FieldByName('REGLAMENT').AsString:= FieldByName('REGLAM_RAB').AsString+' '
     +FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString+' '
     +FieldByName('REGLAM_DATE').AsString+' '+FieldByName('REGLAMENT').AsString+';';
   end;

  end;
end;