VB6软件，货币型的金额为什么在有的XP上自动四舍五入了

[ameyume]

如题。
我用Vb6写的一个记账软件，用的是access数据库，金额类型为货币型，小数点后保留两位。
在开发用的xp上修改输入的金额时没有问题，比如输入了1.05元，修改为1.56元，更新显示都没问题。
但在另一台xp上，第一次输入1.05元提交到数据库后。在修改为1.56元，点击提交，则数据自动变为2元。如果输入1.05元，修改为1.01元，提交后自动变为1元。即执行了四舍五入。但是在开机的机器上就不存在这种问题。access都是用的2003版的。

[ameyume]

up
好奇怪的问题。

[jhone99]

追踪一下是程序导致还是access导致，access的设置是否有问题？

[chinaboyzyq]

控制面板--区域或语言选项--自定义--数字--看 小数点 及 小数位 等与你开发的机子上有什么不同。

[ameyume]

多谢各位，好像控制面板里的设置也没看出什么区别来。

[孤独剑_LPZ]

是很奇怪,同样是xp,一台正常,一台不正常.如果直接在access里修改,看是否正常

[贝隆]

我觉得使用Format函数格式话一下吧。

[guyehanxinlei]

最好程序上格式化一下

[ameyume]

是很奇怪,同样是xp,一台正常,一台不正常.如果直接在access里修改,看是否正常
---->>>>
在自己的开发机上试过可以在access中正常修改。另一台机器上还没试过，明天试试。


[Quote=引用 6 楼 guyehanxinlei 的回复:]
最好程序上格式化一下
[/Quote]
已经格式化为货币型了
Strings.FormatCurrency(Trim(txtMoney.Text))

[ameyume]

[Quote=引用 7 楼 veron_04 的回复:]
我觉得使用Format函数格式话一下吧。
[/Quote]

' È¡µÃ½ð¶î£¬¸ñʽ»¯Îª»õ±ÒÐÎʽ
    sMoney = Strings.FormatCurrency(Trim(txtMoney.Text))

[ameyume]

[Quote=引用 3 楼 chinaboyzyq 的回复:]
控制面板--区域或语言选项--自定义--数字--看 小数点 及 小数位 等与你开发的机子上有什么不同。
[/Quote]
刚才又查了一下出问题的机器，的确是这里的原因
这个机器上货币型的小数位数是0，所以只能保存整数货币型，把货币型的小数位数改为2就可以了。
非常感谢各位！