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

没搞懂你的关联

就是要把一个销售订单里每一个产品的销售价和采购价累倒一行上，并显示供应商，请您看一下我的报表数据

数据都对不上号,请发些能对上号的数据来

.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:客户.table

Bin老师

比如

 用代码这样写

 

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

非常感谢,我试一下