Pasar datos de un DBGrid a otro DBGrid

[ecfisa]

Hola.

Si hiciste el código anterior, basta con que agregues esta función:

Código Delphi [-]
function SumarPrecio(CDS: TClientDataSet): Currency;
begin
  Result:= 0;
  with CDS do
  begin
    First;
    while not Eof do
    begin
      Result:= Result + CDS.FieldBYName('PRECIO').AsCurrency;
      Next;
    end
  end
end;

Y cuando desees calcular los precios que estan en DBGrid2 solo tenés que llamarla.

Ejemplo donde se muestra la sumatoria:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  ShowMessage(CurrToStr(SumarPrecio(ClientDataSet1)))
end;

Del mismo modo podrías asignarlo a un campo de una tabla de tu bd, como por ejemplo:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  with DataModule1.TablaDondeSeSumanLosPrecios do
  begin
    Edit;
    FieldByName('SUMA').AsCurrency:= SumarPrecio(ClientDataSet1);
    Post
  end
end;

Saludos.