如何做一下函数替换循环 - VFP论坛

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 22 楼

得分:20

找到原因了，是ICASE()的原因
REPLACE ywkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",19,1)-1 FOR RECNO()<=44

[此贴子已经被作者于2017-10-30 22:33编辑过]

坚守VFP最后的阵地

2017-10-30 22:28

分号

等　级：新手上路
帖　子：154
专家分：0
注　册：2006-12-4

第 24 楼

得分:0

程序代码：

USE jf

repl ywkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-ywjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl sxkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-sxjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl yykmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-yyjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl wlkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-wljfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl hxkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-hxjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl swkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-swjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl zzkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-zzjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl lskmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-lsjfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl dlkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-dljfmc FOR !Empty(ywkmjf) AND RECNO()<=44
repl zfkmjf with ICASE(ALLTRIM(类别)=="加强",21,ALLTRIM(类别)=="奥赛",21,ALLTRIM(类别)=="英才",5,1)-zfjfmc FOR !Empty(ywkmjf) AND RECNO()<=44

太感谢了！

2017-10-31 06:33