vfoxpro编程为PRG的文件
发布网友
发布时间:2024-10-01 14:14
我来回答
共1个回答
热心网友
时间:2024-11-07 16:47
Local M[7], N[7]
*--将字段K1到K7存放到数组M[] 中
FOR i = 1 TO 7
F = "K" + ALltrim(Str(i))
M[i] = &F
ENDFOR
*--对数组排序
=ASORT(M)
FOR ii = 1 TO 7
F="M" + ALLTRIM(STR(ii))
REPLACE &F WITH M[ii]
ENDFOR