程序代码：

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