TReport con FOR

[Diego Ferreira]

Hola de Nuevo
El Problema es el Sigiente trato de hacer un reporte que se exportara a
EXCEL con la clase TReport donde las columnas no estan fijas porque hago
segun el Len de oSQLQuery:aFields por medio de un For pero me lanza un
Error. Esto lo hago porque con solo cambiar el Select del DataSet
exportaria los datos que deseo.. Aqui les dejo una representacion del
Problema !!!
//---------------------------------------------------------- --------------
Local oReport, nN
WITH OBJECT ::oSQLQuery1 := TSQLQuery():New( Self )
:oDataSource := ::oAdoDataSource1
:cProcess := "GENERAL"
:cSelect := "SELECT Compania, Linea, Nombre, DP FROM Minvlin"
:lOpen := .T.
:Create()
END
::oSQLQuery1:Gotop()
REPORT oReport TITLE "Lineas de Productos" DATASET ::oSQLQuery1
For nN := 1 To Len(::oSQLQuery1:aFields)
COLUMN OF oReport;
TITLE ::oSQLQuery1:aFields[nN]:cName;
DATA ::oSQLQuery1:aFields[nN]
End
oReport:ToExcel()
//---------------------------------------------------------- --------------
El Problema segun hasta donde veo es cuando a la Columna del Reporte le
asigo mediente un FOR el ::oSQLQuery1:aFields[nN] y Me da un Error no se
si estoy haciendo algo mal !!!
Gracias de Antemano