现有表文件Tsxc.dbf,如何由表文件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 

[此贴子已经被作者于2023-2-13 15:03编辑过]

第一张表循环跑一遍，结果出来写入第二张表就ok了

@sdta 谢谢，非常感谢您的热心指点！