Foros Club Delphi - distinct para registros de Crystal Reports

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - distinct para registros de Crystal Reports (https://www.clubdelphi.com/foros/showthread.php?t=27108)

distinct para registros de Crystal Reports

Buenos dias:

estoy haciendo reportes en Crystal Reports 8.0, una base de datos en Interbase 6 y usando delphi 6.

mediante codigo estoy haciendo filtros de los datos dentro de un reporte llamado Report1.RPT pero no se como hacer un distinct para los datos es decir, tengo:

10 1 sony dvd
10 2 sony tv
10 3 sony lcd

y para lo cual uso el siguiente codigo:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

 crpe1.ReportName := 'D:\Report1.RPT';

 crpe1.Selection.Formula.Clear;

 crpe1.Selection.Formula.Add('{subcomp.codigo_comp}=10');

 crpe1.Execute;

end;

pero deseo que me liste asi:

10 sony

lo he intentado hacer asi:

Código:

 Crpe1.ReportName := 'D:\Report1.rpt'; 

Crpe1.GroupSelection.Formula.Clear;

Crpe1.GroupSelection.Formula.add('{subcomp.codigo_comp}=10');

 crpe1.Execute;

end;

pero me genera el mismo resultado:

10 1 sony dvd
10 2 sony tv
10 3 sony lcd

Gracias :)

Hola nose si te parecera, porque no lo haces con consultas.

Código Delphi [-]cr.ReportFileName:='d:\reporte\r1.rpt';
cr.SQLQuery:='SELECT Last Name, First Name,Birth Date,Salary  '+
                    'FROM Employee '+
                    'WHERE Employee.`Last Name`='+#39+edit1.Text+#39;
cr.Action:=1;

Hace tiempo hice algunas pruebas como esta y otras consultas me funcionaron perfectamente, ahora no lo puedo hacer dichas pruebas porque no encuentro los componentes del crystal report que estaban en los componentes activex del delphi, espero te sirva

Saludos

Pienso que seria mejor agrupar por campos

Código SQL [-]Select codigo, art
from articulo
group by codigo,art

sip eso pienso pero en una componente tcrpe como se haria por que lo he intentado hacer asi y no me ha salido:

Código Delphi [-] crpe1.ReportName := 'D:\Report1.RPT'; 
crpe1.Connect.Password:='masterkey';
crpe1.SQL.Retrieve;
crpe1.SQL.Query.Add('group by subcomp."codigo_comp"');
crpe1.Show;