怎样在打印报表时去掉小数点后无用的0

[comeonstuding]

如：1.0--〉1
1.5000-〉1.5

[ropriest]

设置数据的显示格式：######0.00

[ropriest]

只保留整数可以：#####0 或 ###,##0 等
保留小数时，需要几位，设置格式就在小数点后跟几个零即可

[comeonstuding]

不能确定小数点后保留的位数
要不要先转化为字符串然后再分析，我是觉的这样很麻烦。
有没有更好的方法

[comeonstuding]

up

[zzizz]

在报表中没有办法实现,只有对要打印的数据在打印前处理成要打印的格式.

[comeonstuding]

to 回复人： zzizz() ( ) 信誉：100
那要怎样进行处理。（对要打印的数据在打印前处理成要打印的格式.）
可否举个例子，但我这个打印的量很大，不很太复杂。

[magnetmoon]

不能确定小数点后保留的位数
要不要先转化为字符串然后再分析，我是觉的这样很麻烦。
有没有更好的方法

没有

[river_sea]

有函数strtran()，虽然也需要转化为字符串，可能不象想象的麻烦.

[comeonstuding]

up

[sunsunup]

自寫一個function
function stran
parameters p_value
private p_ret
p_ret = ALLT(tran(p_value,'@Z 999,999,999.999999'))
do case
case right(p_ret,6) = '000000'
p_ret = left(p_ret,len(p_ret)-7)
case right(p_ret,5) = '00000'
p_ret = left(p_ret,len(p_ret)-5)
case right(p_ret,4) = '0000'
p_ret = left(p_ret,len(p_ret)-4)
case right(p_ret,3) = '000'
p_ret = left(p_ret,len(p_ret)-3)
case right(p_ret,2) = '00'
p_ret = left(p_ret,len(p_ret)-2)
case right(p_ret,1) = '0'
p_ret = left(p_ret,len(p_ret)-1)
endcase
return p_ret
在報表中可以用stran(值)就可以了.

[YuyuanJian]

其实前面的人写的FUNCTION返回的值是字符型的,显然不可以,
但是一用VAL()函数后面又有可能加上零,估计这种方法行不通

up

[moqing]

在報表中用ALLT(STR([FieldName],12,2))可以正常去除小數位後無用的9

[moqing]

在報表中用ALLT(STR([FieldName],12,2))可以正常去除小數位後無用的0

[river_sea]

字符串
strtran(field_name,'0',' ')
数字
strtran(str(field_name,field_len,filed_dec),'0',' ')

[river_sea]

以上
' '处(space(1))应为''（space(0))