从数据库中导出数据到文本中的问题,请指点

Question

Dim p As Double
p = re.Fields(21).Value
Print #filenum, Spc(1); p    数据库表中的字段类型为货币型并且小数位数为2表中数据为: 22.00, 22.10, 22.31
写到文本中的结果为: 22, 22.1, 22.31
    请问为什么前面两个数据不能保留后面的两位小数呢,要怎样才能保留啊
因为银行要求保留,所以请大家帮忙看有什么办法可以搞定.
   现在程序就卡在这了,无法往下编写,急就一个字.
小弟先谢了.

Answer 1

Print #filenum, Spc(1); str(p)

Answer 2

dim p as string
p = str(re.Fields(21).Value)
Print #filenum, Spc(1); p
最好这样，免得double类型自动舍弃后面的0

Answer 3

Dim p As Double
p = fromat((re.Fields(21).Value),#.00)
Print #filenum, Spc(1); p

Answer 4

sorry
  p = Format((re.Fields(21).Value),"#.00")

Answer 5

SQL語句中用Format函數格式化一下字段就可以了。保存可以用記錄集本身的Save方法。

Answer 6

Dim p As String, pos As Byte
p = re.Fields(21).Value & ""
pos = InStr(p, ".")
If pos = 0 Then
  p = p & ".00"
Else
  p = p & String(2 - (Len(p) - pos), "0")
End If

Answer 7

ZOU_SEAFARER(国际海员),我照你的方法写,问题已经搞定了,谢谢.
 faysky2(),你的方法虽然也可以实现,但不如ZOU_SEAFARER(国际海员)方法简易,
 不过你的思路还是不错的.
总之谢谢大家了.