If I undestood you correctly, I think a simple FOR loop after the SCAN should do it
m.ix = 0
SCAN
m.ix = m.ix + 1
lcFields = lcFields + IIF(m.ix > 1, ', ','') + ALLTRIM(FieldName) + ' AS Fld'+TRANSFORM(ix)
ENDSCAN
for m.ix = m.ix to 8
lcFields = lcFields + IIF(m.ix > 1, ', ','') + ' [ ]AS Fld'+TRANSFORM(ix)
next i
lnReportColumnCount = m.ix
RunSQL = 'SELECT ' + lcFields + ' FROM ' + lcTable + ' ORDER BY ' + lcOrderField + ' INTO CURSOR ReportCursor'
&RunSQL
* Update, of course you needed to remove the field name from the expression in the FOR
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
