vb中如何保留小数位数（如12.00)？

[houji]

我用vb编一个程序，用DAO Jet方法调用数据库，但结果将小数位的0自动去掉了，如何设定保留两位小数？

[shines77]

用Format函数：

Private Sub Form_Load()
Dim MyNum As Double
Dim MyStr As String
MyNum = 12
MyStr = Format(MyNum, "##0.00") '返回字符串"12.00"
End Sub

不过数据只能以字符串保存，使用Double或Single后仍然会变回"12", 注意。

[shines77]

补充：

如果小数点前不止2位，请改成 MyStr = Format(MyNum, "####0.00") 四位的时候。