Cita:
Empezado por gianfranco_tont
quiero que el cliendatasetTOTAL debe ser igual al cliendatasetCOSTO * cliendatasetCANTIDAD y luego finalmente en un Edit1.text es igual a la suma detoda la culumna cliendatasetTOTAL.
|
1. Agrega un campo calculado (CalculatedField) llamado Total y en el elevento OnCalcFields del ClientDataSet pones:
Código Delphi
[-]
procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
DataSet['total'] := DataSet['costo']*DataSet['cantidad'];
end;
2. Agrega un campo agregado (AggregateField) llamado GranTotal y pones sus propiedades:
a. Expression: SUM(costo*cantidad)
b. Active: true
También te aseguras de poner en True la propiedad AggregatesActive del ClientDataSet.
3. Pones un DBEdit ligado a un datasource que esté ligado al ClientDataSet y en su propiedad DataField pones GranTotal.
// Saludos