Показать сообщение отдельно
  #10  
Старый 06.03.2012, 13:03
Andrew_MSK Andrew_MSK вне форума
Прохожий
 
Регистрация: 25.11.2011
Сообщения: 28
Репутация: 10
По умолчанию

немного изменил, попробывал сделать чтобы запись вносилась если значения внесены... не работает...dataset not edit or insert mode...
Код:
procedure TForm5.DBMemo3Change(Sender: TObject);
begin
  if(not DataModule1.ZQuery_rabzona1.FieldByName('REGLAM_RAB').IsNull) and
   (not DataModule1.ZQuery_rabzona1.FieldByName('ELECTROMONTER'  ).IsNull) and
    (not DataModule1.ZQuery_rabzona1.FieldByName('INGENER'  ).IsNull)
  then
  with DataModule1.ZQuery_rabzona1  do
  begin
  edit;
  FieldByName('REGLAMENT').AsString:=FieldByName('REGLAM_RAB').AsString+' '
  +FieldByName('ELECTROMONTER').AsString+' '+FieldByName('INGENER').AsString;
  Post;
  end;
end;

ПОМОГИТЕ ОЧЕНЬ НУЖНА ПОМОЩЬ!
Ответить с цитированием