我用VB做的仓库系统，为什么我程序上写的数据有时候和实际保存的数据差一点点呢~比如我保存10的话数据库里面记录的是9.9999999这样的，下面是我的代码~我的字段类型是单精度
sql = "select * from 库存表 where 规格='" & Trim(Combo2.Text) & "' and 品名='" & Trim(Combo1.Text) & "'"
rs.Open sql, conn, 3, 3
If rs.EOF And rs.BOF Then
rs.AddNew
rs("品名") = Trim(Combo1.Text)
rs("规格") = Trim(Combo2.Text)
rs("入库量") = Trim(Text2.Text)
rs("库存") = rs("期初数") + rs("入库量") - rs("出库量")
rs("业务员") = Trim(Text4.Text)
rs.Update
MsgBox "添加了新的规格", 48, "提示"
Else
Label12.Caption = rs("品名")
Label14.Caption = rs("规格")
Label16.Caption = rs("入库量")
rs("入库量") = rs("入库量") + Val(Text2.Text)
rs("库存") = rs("期初数") + rs("入库量") - rs("出库量")
rs.Update

我要顶上去

用单精度是不行的，

在写入或取值时转换成Currency吧

rs("期初数") + rs("入库量") - rs("出库量")
改成
ccur(rs("期初数")) + ccur(rs("入库量")) - ccur(rs("出库量"))

试试看

谢谢大侠~受教