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