Si los tengo en un banda de tipo Summary, tengo mi banda de detalle y en ella pongo los campos que quiero que salgan.
Luego en cada banda de grupo pongo un qrexpression y en su propiedad pongo sum(campo), luego al final del reporte en la banda Summary, para el total global hago lo mismo.
Pero en los totales por grupo, como no me funciono asi, puse labels y dentro de mi programa, defini algunos variables de tipo registro, luego cada vez que pasa por el detail hago la suma por grupos para dejarla en estos registros, es decir:
Código:
if DataModule1.ADOQuery1.FieldValues['column3'] = 'DISTRITO FEDERAL' then
begin
if DataModule1.ADOQuery1.FieldValues['column4'] = 'Niño' then
begin
nSumaInfDf.EneA := nSumaInfDf.EneA + DataModule1.ADOQuery1.FieldValues['enea'];
nSumaInfDf.FebA := nSumaInfDf.FebA + DataModule1.ADOQuery1.FieldValues['feba'];
else if DataModule1.ADOQuery1.FieldValues['column4'] = 'Adulto' then
begin
nSumaAduDf.EneA := nSumaAduDf.EneA + DataModule1.ADOQuery1.FieldValues['enea'];
nSumaAduDf.FebA := nSumaAduDf.FebA + DataModule1.ADOQuery1.FieldValues['feba'];
nSumaAduDf.MarA := nSumaAduDf.MarA + DataModule1.ADOQuery1.FieldValues['mara'];
nSumaAduDf.AbrA := nSumaAduDf.AbrA + DataModule1.ADOQuery1.FieldValues['abra'];
else if DataModule1.ADOQuery1.FieldValues['column3'] = 'PROVINCIA' then
begin
if DataModule1.ADOQuery1.FieldValues['column4'] = 'Niño' then
begin
nSumaInfPr.EneA := nSumaInfPr.EneA + DataModule1.ADOQuery1.FieldValues['enea'];
nSumaInfPr.FebA := nSumaInfPr.FebA + DataModule1.ADOQuery1.FieldValues['feba'];
y luego antes de imprimir el summary, asigno los valores de mis registros a los qrlabels, lo hice asi porque no me funciono cuando puse qrexp.. en lugar de qrlabels.