vb中去掉小数点后面无效的0

[快跑蜗牛哥]

唉，本人搞java的，没有接触过vb
现在要维护几个vb系统，

目前有个问题，以前的报表 获取的数据 去0 的问题
以下是获得数据 代码
Replace (ToText ({ado.Qxxx},4),",","")
得到的数据 小数点后面有 无效的0
如：
需得到 显示的结果
523 523.0000
7.235 7.2350
65.2 65.2000
98.26 98.2600

请问代码该如何修改？

[赵4老师]

Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

[笨狗先飞]

Val(Replace (ToText ({ado.Qxxx},4),",",""))

[快跑蜗牛哥]

引用 1 楼 zhao4zhong1 的回复:

Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

谢谢，但是 523 显示成 523. 如何去点 . ?

[快跑蜗牛哥]

引用 2 楼 bakw 的回复:

Val(Replace (ToText ({ado.Qxxx},4),",",""))

谢谢，还是一样 。 Val()只是把数据 格式化了。

[赵4老师]

引用 3 楼 qw0907 的回复:

[quote=引用 1 楼 zhao4zhong1 的回复:]

Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0")

谢谢，但是 523 显示成 523. 如何去点 . ?[/quote]

Replace(RTrim(Replace(Replace(RTrim(Replace(Replace(Replace (ToText ({ado.Qxxx},4),",","")," ",""),"0"," "))," ","0"),"."," "))," ",".")

[快跑蜗牛哥]

非常 感谢 赵4老师

[赵4老师]

引用 6 楼 qw0907 的回复:

非常 感谢 赵4老师

[弋戈808]

内容干吗删了