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.