[sAVe]

вот вся процедура, если нужно:

Код:

procedure TEdit_office_contact.Button1Click(Sender: TObject);
begin
with DataModule1.IBQuery1 do
   begin
    SQL.Text:= 'update OFFICE_CONTACTS set OC_CNTT_ID = :q where OC_O_ID = :w';
    ParamByName('q').Value := vartostr(DBLookupComboBox1.KeyValue);
    ParamByName('w').Value := DataModule1.OFFICE_CONTACTS.FieldByName('OC_O_ID').AsString;
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active:=false
   end;
   DataModule1.OFFICE_CONTACTS.Close;
   DataModule1.OFFICE_CONTACTS.Open;
   Main.DBGrid4.Columns[0].Visible:=false;
   Main.DBGrid4.Columns[1].Width := 200;
   Main.DBGrid4.Columns[1].Title.Caption:='Наименование';
   Main.DBGrid4.Columns[2].Visible:=false;
   Main.DBGrid4.Columns[2].Visible:=false;
   Main.DBGrid4.Columns[3].Visible:=false;
   Main.DBGrid4.Columns[3].Visible:=false;
end;