CLOSE ALL
USE 表文件名
nNum = 1
DO whil TYPE(FIELD(nNum))<>"U"
    nNum = nNum+1
ENDDO
nNum = nNum -1
GO TOP 
DO whil !EOF()
    FOR n = 1 TO nNum
        cCap = FIELD(n)
        STRTOFILE(&cCap.+",",'yzh.txt',1)
    ENDFOR
    STRTOFILE(CHR(13),'yzh.txt',1)
    SKIP 
ENDDO 
RENAME yzh.txt TO yzh

谢谢