QuickReport 0%

[[Espartaco]]

yusnerki muchas gracias por tu interes, aqui es donde genero la connsulta para el listado:

Código Delphi [-]
     listadoadministradoresrec.Qconsulta.Close;
     listadoadministradoresrec.Qconsulta.sql.Clear;
     listadoadministradoresrec.Qconsulta.sql.add('select *');
     listadoadministradoresrec.Qconsulta.sql.add('from ":conlipres:auxadmin.db" d');
     listadoadministradoresrec.Qconsulta.sql.add('ORDER BY NOMBREADM');
     listadoadministradoresrec.Qconsulta.Open;
     S := FormatDateTime('mmmm',Now);
     listadoadministradoresrec.QRLabel2.Caption:='Sevilla, '+IntToStr(Day)+' de '+S+' de '+IntToStr(Year);
     listadoadministradoresrec.QRLabel1.Caption:=ComboBox1.Text;
     listadoadministradoresrec.Preview;
     listadoadministradoresrec.Qconsulta.Close;

como ves, antes de generar la consulta la cierro primero.