>? Parse("Race.RaceCode, RaceDesc") > >function Parse(vNewVal) >nPoint = At('.', vNewVal) >cSelect = [] >if nPoint > 1 > cAlias = Left(vNewVal, nPoint - 1) > cSelect = [SELECT ] > for nLine = 1 to Alines(laLines, Substr(vNewVal, nPoint + 1), 1 + 4, ',') > cSelect = cSelect + Iif(nLine = 1, [], [, ]) + laLines[nLine] + [ AS F] + Transform(nLine) > next nLine > cSelect = cSelect + [ FROM ] + cAlias >endif >return cSelect >