＃我需要鱼与熊掌！－也谈小数与货币。＃

盗到稻

这样应该可以吧，用另外一个文本框来显示
Dim Line As Integer, i As Integer
Line = InStr(".", Me.Field1) + 1
i = Len(Mid(Me.Field1, Line))
TextBox = FormatNumber(Me.Field1, i)

ADAM

我也碰到過這個問題....
不過,
最后解決了...
是用在窗體的文本框中,
設定自訂格式
就可以搞定了...
嘿嘿....