UC知道请各位vb高手进来解答疑惑！！！
来源：百度知道 编辑：UC知道 时间：2024/09/28 14:54:24
我用vb来读取access数据库中的数据，然后将他们写入到txt文件当中，为什么原来数据库中的小数，当被写入到txt文件当中后，就没有了前面的0了？
比如原来是0.11，现在就只剩下了.11了。详细程序如下：
Private Sub Command1_Click()
Print #1, "第一行："
Write #1, Val(m_rs.Fields(0)), Val(m_rs.Fields(15)), Val(m_rs.Fields(16))
Print #1, "第二行："
Write #1, Val(m_rs.Fields(1)), Val(m_rs.Fields(2)), Val(m_rs.Fields(3)), Val(m_rs.Fields(4)), Val(m_rs.Fields(5)), Val(m_rs.Fields(6))
Print #1, "第三行："
Write #1, Val(m_rs.Fields(7)), Val(m_rs.Fields(8)), Val(m_rs.Fields(9)), Val(m_rs.Fields(10))
Print #1, "第四行："
Write #1, Val(m_rs.Fields(11)), Val(m_rs.Fields(12)), Val(m_rs.Fields(13)), Val(m_rs.Fields(14))
End Sub
请大家注意了，我的access数据库中的数据都是用的文本数据，是不是这个原因呢？如果不是的话，那是什么原因呢？谢谢大家了！！！
楼上的兄弟，我照你的提示做了的确可以出现小数点前面的数字了，可是现在又有了一个新的问题了，那就是我输出到文本文件中的每一个数字上都加上了双引号了，我不想要这样的双引号，请问应当怎样做呢 ？？
多谢赐教了！！！
比如原来是0.11，现在就只剩下了.11了。详细程序如下：
Private Sub Command1_Click()
Print #1, "第一行："
Write #1, Val(m_rs.Fields(0)), Val(m_rs.Fields(15)), Val(m_rs.Fields(16))
Print #1, "第二行："
Write #1, Val(m_rs.Fields(1)), Val(m_rs.Fields(2)), Val(m_rs.Fields(3)), Val(m_rs.Fields(4)), Val(m_rs.Fields(5)), Val(m_rs.Fields(6))
Print #1, "第三行："
Write #1, Val(m_rs.Fields(7)), Val(m_rs.Fields(8)), Val(m_rs.Fields(9)), Val(m_rs.Fields(10))
Print #1, "第四行："
Write #1, Val(m_rs.Fields(11)), Val(m_rs.Fields(12)), Val(m_rs.Fields(13)), Val(m_rs.Fields(14))
End Sub
请大家注意了，我的access数据库中的数据都是用的文本数据，是不是这个原因呢？如果不是的话，那是什么原因呢？谢谢大家了！！！
楼上的兄弟，我照你的提示做了的确可以出现小数点前面的数字了，可是现在又有了一个新的问题了，那就是我输出到文本文件中的每一个数字上都加上了双引号了，我不想要这样的双引号，请问应当怎样做呢 ？？
多谢赐教了！！！
val函数的返回值是double，所以。。。。用format(Val(x),"0.00")
其中x为要转换的数.
您好。新代码：FormatNumber(x, , vbTrue)
试试吧^_^
这位大哥！！！！！！！
最新更新代码！！！！！
这次完美解决！！
第一次的写入代码为：（将 Write 命令废除）
Print #1, "第一行：" & format(Val(m_rs.Fields(0))),"0.00") , format(Val(m_rs.Fields(15))),"0.00") , format(Val(m_rs.Fields(16))),"0.00")
以此类推。。。。。