主题：合计

    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("piao据张数") = DataTables("收购").Compute("Sum(piao据张数)",s1)

        dr("收购金额") = round2(dr("收购金额"),2)       

    Next