请高手指点:帮简化程序
帮助.rar
(2.84 KB)
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