如何由表文件Tsxc.dbf生成xcylb.dbf

CREATE CURSOR xcylb (序号 N(2), 地名 C(10), 特色小吃 C(100))
SELECT * FROM tsxc INTO CURSOR test
FOR ln = 1 TO FCOUNT("test")
    lcStr = ""
    SCAN
        lcStr = lcStr + IIF(EMPTY(lcStr), SPACE(0), IIF(EMPTY(EVALUATE(FIELD(ln))), SPACE(0), "、")) + ALLTRIM(EVALUATE(FIELD(ln)))
    ENDSCAN
    INSERT INTO xcylb VALUES (ln, FIELD(ln, "test"), lcStr)
ENDFOR
SELECT xcylb
BROWSE