主题：大侠帮帮我呀

我需要把零件需求表：有车间、产品、零件、需求数量四列，要统计出每个车间 - 每个产品 - 每个零件的需求数量。请高手帮忙，谢谢！

车间、产品我是这样写，零件该怎样写？

Dim dic As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
For Each dr1 As DataRow In DataTables("生产计划").DataRows
    For Each dr2 As DataRow In DataTables("零件用量").Select("[车间] = '" & dr1("车间") & "' and [产品] ='" & dr1("产品") & "'")
        Dim nm As String = dr2("车间")
        Dim vl As Integer = dr1("生产数量") * dr2("用量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+ vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("零件需求").AddNew()
    dr("车间") = key
    dr("需求数量") = dic(key)
Next

Dim dic1 As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
For Each dr1 As DataRow In DataTables("生产计划").DataRows
    For Each dr2 As DataRow In DataTables("零件用量").Select("[车间] = '" & dr1("车间") & "' and [产品] ='" & dr1("产品") & "'")
        Dim nm1 As String = dr2("产品")
        Dim vl As String = dr1("生产数量") * dr2("用量")
        If dic1.ContainsKey(nm1 & "|" & dr2("车间")) = False
            dic1.Add(nm1 & "|" & dr2("车间"),vl)
        Else
            dic1(nm1 & "|" & dr2("车间")) = dic1(nm1 & "|" & dr2("车间"))+ vl
        End If
    Next
Next
For Each key As String In dic1.keys
    Dim dr1 As DataRow = DataTables("零件需求").AddNew()
    Dim str() As String = key.Split("|")
     dr1("车间")=str(1)
    dr1("产品") = str(0)
    dr1("需求数量") = dic1(key)
Next

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

点击浏览该文件:管理项目3.zip

是要分开每个零件

我要统计 生产数量*用量=需求数量

前面加一列物料需求统计

统计：

 第1车间—产品（PD01）—零件（CP01）用量，生产数量*用量=需求数量

要把统计结果 ， 车间、产品、零件内容分别：添加到零件需求表 车间、产品、零件列，统计结果绑定到零件需求列，和

物料需求统计一样，就是多了车间列。

把统计结果分别添加到零件需求表列中，我已把车间、产品列添加了，就是零件列应该怎样添加。和帮助里

物料需求统计一样，就是多了一列。

谢谢！这样生存的是临时表，因为我后面还要需求数量列。