比如说2.530转出来后是2.53

a=2.530
?LEFT(ALLTRIM(STR(a,10,5)),AT('0',ALLTRIM(STR(a,10,5)))-1)
得到结果:2.53
str()函数中的返回长度和小数位数根据自己的需要设定.
可能还有比这个更好的办法自己试试看.

谢谢，at函数什么用?

我想去掉小数点后边无用的零，比如说100后边的零是不能去掉的

是的,你说得很有道理,100后的零都不能去的,要编个程序来完成:
建个xxx.prg程序:
代码如下:
PARAMETERS a
a=ALLTRIM(STR(a,20,5)) &&得到一个长20，5位小数的字符串
DO while RAT('0',a)=LEN(a) &&如果0在最后一位，执行循环
a=LEFT(a,LEN(a)-1) &&去掉后面的0
IF RAT('.',a)=LEN(a) &&如果最后一位是小数点了，就去掉小数点，退出循环
a=LEFT(a,LEN(a)-1)
EXIT
ENDIF
ENDDO
RETURN a
ENDFUNC

在命令窗口中执行:
a=2.5
?xxx(a) &&得到2.5

a=100
?xxx(a) &&得到100

a=100.03
?xxx(a) &&得到100.03

RAT()函数:返回一个字符表达式或备注字段在另一个字符表达式或备注字段内第一次出现的位置，从最右边的字符算起。
AT()函数:返回一个字符表达式或备注字段在另一个字符表达或备注字段中首次出现的位置，从最左边开始计数

IIF(n数值=INT(n数值),TRANSFORM(INT(n数值)),RTRIM(TRANSFORM(n数值),"0"))