create cursor b1 (a n(3),p_1 c(3), p_2 c(3), p_3 c(3),p_4 c(3))
insert into b1 values (2,"","","","")
insert into b1 values (1,"","","","")
insert into b1 values (3,"","","","")
insert into b1 values (4,"","","","")
insert into b1 values (2,"","","","")

SCAN
kk="p_"+TRANSFORM(a)

REPLACE &kk WITH "P_"+TRANSFORM(a)
ENDSCAN

能否不用循环，直接用REPLACE ALL,使其运行更快点?
谢谢！

想快到什么程度

能否不用循环，kk动态表示相应字段。

kk作字段名时可用名字表达式：
SCAN
    kk="P_"+TRANSFORM(a)
    REPLACE (kk) WITH kk
ENDSCAN
每条记录 kk 不是固定，要逐条记录解释执行 REPLACE (kk) ...

谢谢！

尽量用名称表达式代替宏替换
即把&kk换成名称表达式(kk)速度提升明显

[此贴子已经被作者于2020-9-30 20:23编辑过]