QuickReport

[[ElKurgan]]

Empezado por elturu15

... cuando ejecuto la prueba delistar se me cualge. El codigo que uso es este y esta en un button


Código Delphi [-]begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='SELECT * FROM Ciudades';
ADOQuery1.Open;

While not ADOQuery1.EOF do
QRDBText1.DataField:= ADOQuery1.Fields[1].AsString;
end;



Si no pongo el While me lista el primer reg y si lo pongo se me cuelga,
YO QUIERO LISTAR TODA LA TABLE...AUXULIO!

Se cuelga porque dentro del bucle while no le dices que pase al siguiente registro con

ADOQuery1.Next;

Por lo demás, en QR no hace falta asignar nada en ejecución para que te muestr todos los registros: Basta con que en el informe le pongas su propiedad "Dataset" apuntando al "ADOQuery1" y la propiedad "DataField" de QRDBText1 al campo que deseas mostrar. ¿Como estás llamando al informe? ¿Está el formulario que lo contiene en modo "Autocreate" o lo creas cuando sea necesario? A lo mejor necesitas asignar los campos en algún evento antes de mostrar el QR, como BeforePrint o alguno parecido

Un saludo