主题：[求助]请老师们帮忙如何合并汇总

 用代码这样写

DataTables("报表").DataRows.Clear

For Each dr As DataRow In DataTables("销售明细").Select("")
    Dim pdr As DataRow = DataTables("销售单").find("销售单号 = '" & dr("订单号") & "'")
    Dim fdr As DataRow
    fdr = DataTables("报表").Find("项目号 = '" & pdr("项目号") & "' and 产品编码 = '" & dr("产品编码") & "'")
    'If fdr Is Nothing Then
    fdr = DataTables("报表").AddNew
    'End If
    fdr("客户") = pdr("客户")
    fdr("项目号") = pdr("项目号")
    fdr("产品编码") = dr("产品编码")
    fdr("销售单价") = dr("销售单价")
Next

For Each dr As DataRow In DataTables("采购明细").Select("")
    Dim pdr As DataRow = DataTables("采购单").find("采购单号 = '" & dr("采购单号") & "'")
    Dim fdr As DataRow = DataTables("报表").Find("项目号 = '" & pdr("项目号") & "' and 产品编码 = '" & dr("产品编码") & "' and 供应商 is null")
    If fdr Is Nothing Then
        fdr = DataTables("报表").AddNew
    End If
    fdr("供应商") = pdr("供应商")
    fdr("数量") = dr("数量")
    fdr("采购单价") = dr("采购单价")
Next