主要是这里：
SELECT ry
GO top
rynl=VAL(nl)  && 你这里的rynl 没有参加循环
DO WHILE .t.
IF EOF()
EXIT
ENDIF
IF rynl>=60 AND xb="男" AND xzdm!="d" AND xzdm!="e"
replace xzdm WITH "b",ryxz WITH "老年居民"
ENDIF
IF rynl>=55 AND xb="女" AND xzdm!="d" AND xzdm!="e"
replace xzdm WITH "b",ryxz WITH "老年居民"
ENDIF
IF rynl<18 AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"
replace xzdm WITH "a",ryxz with "儿童及18周岁以下居民"
ENDIF
IF rynl>=18 AND rynl<60 AND xb="男" AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"
replace xzdm WITH "c",ryxz with "其他非从业居民"
ENDIF
IF rynl>=18 AND rynl<55 AND xb="女" AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"
replace xzdm WITH "c",ryxz WITH "其他非从业居民"
ENDIF
skip
ENDDO

比如女55以上为老年居民。但更新完后人员性质和代码没变。


---------------------------------
可改成(不要用do循环,否则当记录超过几十万时,速度很慢的):

SELECT ry
replace xzdm WITH "b",ryxz WITH "老年居民" for  VAL(nl)>=60 AND xb="男" AND xzdm!="d" AND xzdm!="e"
replace xzdm WITH "b",ryxz WITH "老年居民" for VAL(nl)>=55 AND xb="女" AND xzdm!="d" AND xzdm!="e"
replace xzdm WITH "a",ryxz with "儿童及18周岁以下居民"  for VAL(nl)<18 AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"

....


[ 本帖最后由 茵梦湖 于 2010-1-3 18:50 编辑 ]

改为:

replace all xzdm with iif((val(nl)>60 and xb='男') or (val(nl)>55 and xb='女'),'B',iif(val(nl)<18,'A','C'))

略为仔细地看了下你的题意, 你将nl字段改为数值型后, 其实是很简单的~~

repl all nl with year(date())-iif(len(alltrim(sfzh))=15,val('19'+substr(sfzh,7,2)),val(substr(sfzh,7,4)));
      ,xzdm with iif((nl>=60 and xb='男') or (nl>=55 and xb='女'),'B',iif(nl<18,'A','C'))

repl xzdm WITH "b",ryxz WITH "老年居民" for ((nl>=60 AND xb="男") .or.(nl>=55 AND xb="女")) AND xzdm!="d" AND xzdm!="e"
repl xzdm WITH "a",ryxz with "儿童及18周岁以下居民" for nl<18 AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"
repl xzdm WITH "c",ryxz WITH "其他非从业居民" for ((betw(nl,18,59) AND xb="男") .or.(betw(nl,18,54) AND xb="女"))  AND xzdm!="d" AND xzdm!="e" AND xzdm!="f"

[ 本帖最后由 茵梦湖 于 2010-1-3 19:31 编辑 ]

谢谢Tiger5392和茵梦湖两位老师，在你们的指点下，榆木脑袋开点壳了。问题解决了。再次感谢两位老师，祝老师节日快乐，新的一年工作顺利！