PARAMETERS NUMIF VARTYPE(NUM)="N" RETURN IIF("."$TRANSFORM(NUM),RTRIM(TRANSFORM(NUM),"0"),TRANSFORM(NUM))ELSE MESSAGEBOX("非数值型数据",64,"系统信息") RETURNENDIF