******************************************************************** * Description.......: FieldsToString - creates a string with fields in a table * Calling Samples...: * Parameter List....: tlAddTypes, tlAddAlias, tlLower * Created by........: Nadya Nosonovsky 04/21/2005 * Modified by.......: *-- CHANGE - NN - August 10, 2005 - 15:10:45 ******************************************************************** FUNCTION FieldsToString LPARAMETERS tlAddTypes, tlAddAlias, tlLower LOCAL lcStr, lni, lnFields, laFields[1], lcType, lcField lnFields = AFIELDS(laFields) lcStr = "" FOR lni = 1 TO m.lnFields lcType = laFields[m.lnI,2] IF m.tlLower lcField = LOWER(laFields[m.lnI,1]) ELSE lcField = LOWER(LEFT(laFields[m.lnI, 1],1)) + ; PROPER(SUBSTR(laFields[m.lnI, 1],2)) ENDIF lcStr = m.lcStr + ", " + IIF(m.tlAddAlias,PROPER(ALIAS()) + ".", "") + ; m.lcField + ; IIF(m.tlAddTypes, " " + m.lcType + ; IIF(NOT INLIST(m.lcType, "D","T","I","G","M","Y"), "(" + TRANSFORM(laFields[m.lnI,3]) + ; IIF(laFields[m.lnI,4] > 0, ", " + TRANSFORM(laFields[m.lnI,4]),"") + ")",""),"") NEXT _CLIPTEXT = SUBSTR(m.lcStr, 3)This one doesn't include indexes and doesn't have NULLs, so needs a bit more changes. I'm lazy to change it, though.