Ver Mensaje Individual
  #9  
Antiguo 07-07-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
Código Delphi [-]
// todos los registros
query1.Active := false;
query1.SQL.Text := 'select * from tabla';
query1.Active := true;

Código Delphi [-]
//los registros con una condicion
query2.Active := false;
query2.SQL.Text := 'select * from tabla where cliente = ''%MI%''';
query2.Active := true;

antes de llamar al preview del quickreport, pones su propiedad dataset a la query q quieras sacar

Código Delphi [-]
 
QuickRep1.DataSet := Query2; // caso filtrado
QuickRep1.Preview;
...
QuickRep1.DataSet := Query1; // caso sin filtrar
QuickRep1.Preview;
...
...
por lo que veo ahora estas hablando de registros seleccionados, supongo que con el multiselect. Entonces debes usar la propiedad SelectedRows para, con sus items, saber que registros se han marcado y construir asi tu query2
Código Delphi [-]
Query2.Active := false;
Query2.sql.text := 'select * from tablas where id = -1 and' 
for i := 0 to DBGrid1.SelectedRows.Count do
Query2.sql.text := ' id = ' + DBGrid1.SelectedRows.Items[i] + ' and';
 
Query2.Active := true;

PD: lo de arriba es pseudocodigo. deberas investigar en el foro o en la ayuda el correcto uso de Selectedrows.
Responder Con Cita