回复 21楼 吹水佬
牛,谢谢!仿照你的,我把他放在一个数据库中执行,你的 do 和 if 语句,完整实现要求。学了!
GO TOP
DO WHILE !EOF()
IF (a != 0) AND (a != fqbz)
nRecno = RECNO()
SCATTER TO arr
LOCATE FOR fqbz==arr[4] AND zcj==arr[2] AND a==0 and bz==0
IF FOUND()
REPLACE fqbz WITH arr[3],bz with 1
GO nRecno
REPLACE fqbz WITH arr[4]
ELSE
GO nRecno
ENDIF
ENDIF
SKIP
ENDDO
GO TOP
BROWSE FOR (a != 0) AND (a != fqbz)