pasar de una tabla1 a una tabla2 la misma info

[el_barto]

Pues en realidad campo3 es un trigger en interbase creado como before insert, entonces el campo no quedara vacio

[dmagui]

Hola estoy intentando hacer la instruccion propuesta por Contraveneno, pero tengo un inconveniente:

Código Delphi [-]
 
procedure TForm1.Button3Click(Sender: TObject);
 begin
   with ibdataset1 do begin
     Close;
     selectsql.Clear;
     selectsql.Add('insert into cotizacion(codigo_comp, item_subcomp)');
     selectsql.Add('select codigo_comp, item_subcomp from prod_comp where codigo_prod ='
       + Quotedstr(DBlookupcombobox4.Field.Value)+'and item_subprod ='
       + Quotedstr(Dblookupcombobox5.field.Value));
     execsql;
     open;
   end;
 end;

y no me esta guardando nada en la base de datos, debo agregarle algo mas??, gracias por la ayuda

[ContraVeneno]

Hay una ligera diferencia entre tu ejemplo y el mio.

Código Delphi [-]
selectsql.Add('insert ...
//Notas la diferencia?
SQL.Add('insert .....

Además de eso, la instrucción Open no debería estar despues de un ExecSQL, de hecho, Open se utiliza solo cuando son consultas (select) y ExecSQL se utiliza cuando se van a realizar cambios (Update, insert, delete, etc) Pero no debes usar las dos juntas. Y creo que falta un espacio antes del and

[el_barto]

Código Delphi [-]
 

procedure TForm1.Button1Click(Sender: TObject);
begin
with ibdataset1 do begin
  open;
    while not EOF do begin
      IBdataset2.Append;
      Dbedit1.Text:=ibdataset1.fieldbyname('campo1').asstring;
      DBEdit2.Text:=ibdataset1.fieldbyname('campo2').asstring;
      DbEdit3.Text:=Ibdataset1.fieldbyname('campo3').asstring;
      next;
    end;
end;
ibdataset2.ApplyUpdates;
ibtransaction1.Commit;
end;

Asi tambien se puede hacer, pero es mas funcional como dice contraveneno