f=""
FOR K = 1 TO FCOUNT()
    F =iif(k<FCOUNT(), f+FIELD(K)+"，",f+FIELD(K))
ENDFOR
THISFORM.text1.VALUE=f
可以精简:
f=""
FOR K = 1 TO FCOUNT()
    F =F+FIELD(K)+iif(k<FCOUNT(), ",","")
ENDFOR
THISFORM.text1.VALUE=f

我试用了一下，也得到了同样的效果，非常感谢　lygcw9603　老师的指点！

路过，学习学习