Quickreport y totales al final de la impresion

[ContraVeneno]

1.- Puedes alinear utilizando las etiquetas code:

Categoria cantA cantB cantC
Niño	 120	20	15
Adulto	 40	 10	5
Local	160	 30	20

2.- ¿Pusiste los QRExpression en una SummaryBand?
En mi reporte coloco QRexpressions en una SummaryBand y haciendo las operaciones en la propieedad expression me da los resultados sin problemas.

[LucianoRey]

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:

 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.

[LucianoRey]

Ah, se me olvidaba, la forma en que trate de asignar los valores a los qrexpression la hice de las siguientes formas:

QRExpr1.Caption:=IntToStr( nSumaInfDf.EneA + nSumaAduDf.EneA ); y nada
QRExpr1.Value no supe como usarlo
QRExpr1.Expression:=IntToStr( nSumaInfDf.EneA + nSumaAduDf.EneA ); y nada

y poniendo en la propiedad Expression, la formula SUM( nSumaInfDf.EneA + nSumaAduDf.EneA ) y nada, saludos y gracias.

[ContraVeneno]

QRExpr1.Expression:=IntToStr( nSumaInfDf.EneA + nSumaAduDf.EneA ); y nada

Es que mas bien creo que aqui se utiliza de la siguiente forma:
Propiedad Expression = Sum(Campo3)
para que te de la suma.

Count(campo), AVG(campo), etc, etc... puedes utilizar el editor de la propiedad expression para ver cuál es la función que necesitas.

[jdangosto]

¿Por que no utilizas una simple consulta en un tquery?

El resultado lo plasmas en el informe y creo que te evitaría muchos quebraderos de cabeza.

Ya sabes...

Código SQL [-]
Select SUM(campo1) from tu_tabla;

[ContraVeneno]

En realidad un QRExpression que funcione correctamente ahorraría un uso inecesario de un TQuery extra.