qreport While . do

[ecfisa]

Hola shoulder.

No sé cuál es el formato de salida que esperas, pero por lo que infiero de tu código, debería mostrar cada uno de los nombres de las ciudades precedido por el nombre de la provincia.

Entonces, pone un TQuickRep, un TQRSubDetail y dentro de él dos TQRDBText, un TDataSource (dszQuery1) y ajustá las siguientes propiedades:

En dszQuery1

• DataSet: zQuery1

En zQuery1

• SQL:

  Código SQL [-]
  SELECT NOMBRE FROM PROVINCIAS ORDER BY NAME

En zQuery2

• SQL:

  Código SQL [-]
  SELECT NOMBRE FROM CIUDAD WHERE NOMBRE = :PNOMBRE ORDER BY NOMBRE

• DataSource: dszQuery1. (origen de datos para el parámetro PNOMBRE)

En QRSubDetail1

• DataSet: zQuery2

En QRDBText1

• DataField: NOMBRE
• DataSet: zQuery1

En QRDBText2

• DataField: NOMBRE
• DataSet: zQuery2

Visualiza haciendo right click sobre QuickRep1, item Preview.

Saludos.