>Ok, I tried this, and I'm getting incorrect results.
>
>I have a cursor with 2 columns, ID and Caption. Their widths are 4 & 50.
>
>

>sColWidths = "0,"
>sFontName = .lstAssigned.FontName
>iFontSize = .lstAssigned.FontSize
>
>FOR iColumn = 1 TO FCOUNT()
>  iSize = TXTWIDTH(ALLTRIM(FIELD(iColumn)), sFontName, iFontSize)
>  sColWidths = sColWidths + TRANSFORM(CEILING(iSize)) + ","
>ENDFOR
>

>
>This results in sColWidths being "0,2,10,"

Now if you have only two columns, why would you need three numbers in th esColWidths?

sColWidths = ""
sComma=""
sFontName = .lstAssigned.FontName
iFontSize = .lstAssigned.FontSize
tm6=fontmetric(6, sFontName, iFontSize)

FOR iColumn = 1 TO FCOUNT()
  calculate max(TXTWIDTH(ALLTRIM(eval(FIELD(iColumn))), sFontName, iFontSize)*tm6) to iSize
  sColWidths = sColWidths+sComma + TRANSFORM(CEILING(iSize))
  sComma=", "
ENDFOR

Note that I'm taking eval() of the column, so it would measure the length of the actual content, not of the column's name, and I'm doing a Calculate Max() of it, so it would find the maximal length for all records, not just the current one. And the tm6 is the average character width that I forgot last time.