程序代码:
表格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