distinct para registros de Crystal Reports

[dmagui]

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:

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:

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 :)

[Caro]

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


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

[vtdeleon]

Saludos

Pienso que seria mejor agrupar por camposSelect codigo, art
from articulo
group by codigo,art

[dmagui]

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

crpe1.ReportName := 'D:\Report1.RPT';
crpe1.Connect.Password:='masterkey';
crpe1.SQL.Retrieve;
crpe1.SQL.Query.Add('group by subcomp."codigo_comp"');
crpe1.Show;