要求对数据值型字段的值进展检测，凡为负数的值全部更改为0，请前辈指导导，小弟先感谢了

要求对数据值型字段的值进行检测，凡为负数的值全部更改为0，请前辈指导导，小弟先感谢了！
test.dbf文件里边有若干字段，要求对数据值型字段的值进行检测，凡为负数的值全部更改为0，这应该怎样操作啊，请前辈指导！
[解决办法]
upda test set 字段a=0 where 字段a<0
[解决办法]
upda test set 字段a=0 where type('字段a')=N and 字段a<0 
[解决办法]

USE TEST
FOR I=1 TO FCOUNT()
    ZDM=FIELD(I)
    IF TYPE([ZDM])=[N]
       REPLACE (ZDM) WITH 0 FOR &ZDM<0
    ENDIF
ENDFOR

[解决办法]

Create Cursor test (f1 c(1),f2 i,f3 N(5),f4 d,f5 i)
Insert Into test Values ('a',1,-2,Date(),-3)
Insert Into test Values ('b',-100,5,Date(),-10)
Browse
For lnI=1 To Fcount()
If Type(Field(lnI))='N'
Replace All (Field(lnI)) With 0 For Evaluate(Field(lnI))<0
Endif
Endfor
Browse

[解决办法]
本帖最后由 wwwwb 于 2012-12-25 09:24:09 编辑 use ww
aa=AFIELDS(ss,'ww')
FOR i=1 TO ac
IF ss(i,2)='N'
UPDATE WW SET &SS(I,1)=0 WHERE EVALUATE(SS(I,1))<0
ENDIF 
NEXT

查看更多 下一篇