Ver Mensaje Individual
  #1  
Antiguo 15-12-2014
tarco35 tarco35 is offline
Miembro
 
Registrado: sep 2003
Posts: 210
Reputación: 23
tarco35 Va por buen camino
me parece que no me he explicado bien... o lo mas probable que sigo sin enterarme. Pongo la parte donde hago la consulta:
Código Delphi [-]

  If RadioOrden.ItemIndex=0 then Cd := 'select nombre,apellidos,'
  else Cd := 'select apellidos,nombre,';
  Aux := '';
  if CkCentro.Checked then Aux := 'centro,';
  Cd := Cd + Aux; Aux := '';
  if CkAlta.Checked then Aux := 'fechaalta,';
  Cd := Cd + Aux; Aux := '';
  if CkTlf.Checked then Aux := 'telefono,';
  Cd := Cd + Aux; Aux := '';
  if CkFax.Checked then Aux := 'fax,';
  Cd := Cd + Aux; Aux := '';
  if CkCorreo.Checked then Aux := 'correo,';
  Cd := Cd + Aux; Aux := '';
  if CkDireccion.Checked then Aux := 'direccion,';
  Cd := Cd + Aux; Aux := '';
  if CkProvincia.Checked then Aux := 'provincia,';
  Cd := Cd + Aux; Aux := '';
  If CkCiudad.Checked then Aux := 'ciudad,';
  Cd := Cd + Aux; Aux := '';

  Cd := copy(cd,1,Length(cd)-1);
  If CentroActual=0 then Cd := cd + ' from pacientes.db order by'
  else Cd := cd + ' from pacientes.db where centro=' +#39 + IntToStr(CentroActual) + #39 + ' order by';
  If RadioOrden.ItemIndex=0 then Cd := Cd + ' nombre,apellidos'
  else Cd := Cd + ' apellidos,nombre';
  QueryPacientes.Active := false;
  DBGrid1.Repaint;
  QueryPacientes.Close;
  QueryPacientes.SQL.Clear;
  QueryPacientes.SQL.Add(Cd);
  QueryPacientes.Open;
  FormatoGrid;

cada vez que el usuario cambia algun parametro se genera un resultado distinto... este resultado es el que no se como ponerlo en el qreport
gracias.
Responder Con Cita