去掉小数点后的0的问题

把各数量栏的小数点后的0去掉,

但遇到的问题如下

每条记录都一样了,困惑中!
参考这个帖子,我却怎么也做不出来
http://bbs.
[ 本帖最后由 wzxc 于 2013-2-15 18:03 编辑 ]
表格INIT事件 FOR I=1 TO FCOUNT() IF TYPE(FIELD(I))=[N] THIS.COLUMNS(I).CONTROLSOURCE =[IIF("."$TRANSFORM(EVALUATE(FIELD(]+TRANSFORM(I)+[))),RTRIM(TRANSFORM(EVALUATE(FIELD(]+TRANSFORM(I)+[))),"0"),TRANSFORM(EVALUATE(FIELD(]+TRANSFORM(I)+[))))] ENDIF ENDFOR