物料需求 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dic As new Dictionary(of String,Integer)
DataTables("零件需求").DataRows.Clear()
Dim dr1 As Row = Tables("生产计划").current
For Each dr2 As DataRow In DataTables("零件用量").Select("[父类] = '" & 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
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("零件需求").AddNew()
    dr("零件") = key
    dr("需求数量") = dic(key)
Next

主题：物料需求