版主，我做的销售管理系统，销售明细表中的金额用SQL的sum函数实现，为什么数据小数不正确？请看代码及图。
计算的结果小数应该是.56,可是sum来的结果却是.6   ?
Private Sub xszj()
Adodc7.RecordSource = "select sum(销量) as 销量, sum(开票金额) as 开票金额, sum(折价金额) as 折价金额 from 销售明细表  where 销售单号 ='" + Trim(Text2.Text) + "'"
Adodc7.Refresh      '明细表数据
xl = Adodc7.Recordset.Fields("销量")
xsje = Val(Adodc7.Recordset.Fields("开票金额"))      ’准备赋值给主表
zjje = Val(Adodc7.Recordset.Fields("折价金额"))
End Sub


[ 本帖最后由 yjshe22 于 2009-10-27 16:43 编辑 ]