请高手指点：帮简化程序 - 编程论坛

sdta2024-05-11 17:26

程序代码：

CLOSE DATABASES
USE 测试数据
REPLACE ALL bbzz1 WITH SPACE(0)
SCAN
    lcStr = SPACE(0)
    FOR ln = 1 TO fk
        lcStr = lcStr + ALLTRIM(EVALUATE("保单号"+TRANSFORM(ln))) + "保险产品为《" + ALLTRIM(EVALUATE("主险"+TRANSFORM(ln))) + "》等，已于" + ALLTRIM(EVALUATE("合同效力"+TRANSFORM(ln))) + "合同效力" + ALLTRIM(EVALUATE("保单状态"+TRANSFORM(ln))) + "；"
    ENDFOR
    REPLACE bbzz1 WITH lcStr
ENDSCAN
BROWSE

lnsyzh2024-05-13 09:00

谢谢sdta ，运行后是想要的结果，节省了输入的语句。