以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50863)
--  作者：发财
--  发布时间：2014/5/14 16:55:00
--  合计
    Dim f As New Filler
    f.SourceTable = DataTables("收购")
    f.SourceCols = "单价"
    f.DataTable = DataTables("验收单")
    f.DataCols = "单价"
    f.ExcludeExistValue = True
    f.Fill()
    For Each dr As DataRow In DataTables("验收单").DataRows
        Dim s1 As Object = "单价 = \'" & dr("单价") & "\'"
        dr("头数") = DataTables("收购").Compute("Sum(头数)",s1)
        dr("重量") = DataTables("收购").Compute("Sum(重量)",s1)
        dr("收购金额") = DataTables("收购").Compute("Sum(收购金额)",s1)
        dr("票据张数") = DataTables("收购").Compute("Sum(票据张数)",s1)
        dr("收购金额") = round2(dr("收购金额"),2)       
    Next
--  作者：Bin
--  发布时间：2014/5/14 16:56:00
--  
你的问题是什么?
--  作者：发财
--  发布时间：2014/5/14 16:57:00
--  
为什么收购金额会出现错误，重量：7240  单价：6.8   金额：49232.01，为什么金额会多0.01？
--  作者：发财
--  发布时间：2014/5/14 16:58:00
--  
其中收购金额是收购表中重量*单价
--  作者：Bin
--  发布时间：2014/5/14 17:00:00
--  
用高精度小数.
--  作者：发财
--  发布时间：2014/5/14 17:14:00
--  
谢了！