use 表
scan n=0 if mod(字段1,2)=1 n=n+1 endif if mod(字段2,2)=1 n=n+1 endif if mod(字段3,2)=1 n=n+1 endif replace 字段 with n m=0 if recno()=1 f1=字段1 f2=字段2 f3=字段3 else if inlist(字段1,f1,f2,f3) m=m+1 endif if inlist(字段2,f1,f2,f3) m=m+1 endif if inlist(字段3,f1,f2,f3) m=m+1 endif replace 字段5 with m f1=字段1 f2=字段2 f3=字段3 endif
endscan
use 表1 excl
repl all 字段4 with recn()
upda 表1 set 字段5=iif(表1.字段1=k.字段1,1,0) +iif(表1.字段2=k.字段2,1,0) +iif(表1.字段3=k.字段3,1,0);
from 表1 k where 表1.字段4=k.字段4-1
repl all 字段4 with iif(字段1%2=1,1,0) +iif(字段2%2=1,1,0) +iif(字段3%2=1,1,0)
use 表1 excl
repl all 字段4 with recn()
upda 表1 set 字段5=iif(表1.字段1=k.字段1,1,0) +iif(表1.字段2=k.字段2,1,0) +iif(表1.字段3=k.字段3,1,0); from 表1 k where 表1.字段4=k.字段4-1
repl all 字段 ...