主题：[求助]产品分解统计代码怎样写？

一个工作中常常遇到的产品分解例子，就是以订单中成品的产品为条件，求出半成品需求数量，不知怎样写代码计算，请大家帮助看看，或者有更好的思路

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

点击浏览该文件:管理项目1.table

别人又不是干你这行的，你总得说明在哪个表进行怎样的计算，否则别人看都看不懂，怎么给你思路或帮你写代码。

在【产品基础表】里，一个成品（产品名称）下级有多种子目录(一级分类产品）也就是半成品，现在有一个客户订单【计划产品表】给出产品（产品名称）和数量，需要用按键代码统计出需要多少半产品（一级分类产品）生产出客户订单表中的成品填充到【】里处理，  ---------这样不知道说明白没有？

 也就是【计划产品分解表】在填充过程中完成中（第二列）=（计划数量）*（产品一级分类数量）值

看计划产品分解表窗口。

 

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

点击浏览该文件:管理项目23.table

用文本框肯定不行呀，订单中不是单一成品，一般有20多个客户一次订下几百种产品（成品），各个客户也有相同产品，只能先在表中录入订单，再统计共需要采购多少半成品才能达到要求

这样可以的

 

Dim Cus As List(Of String)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    For Each dr2 As DataRow In DataTables("产品基础表").Select("[产品名称] = '" & dr1("产品名称") & "'")
        Dim dr3 As DataRow = DataTables("计划产品分解表").AddNew()
        dr3("第一列") = dr2("产品一级分类名称")
        dr3("第二列") = dr1("计划数量") * dr2("产品一级分类数量")
    Next
Next
MainTable = Tables("计划产品分解表")

 

不过我估计你要的不仅仅是产品一级分类数量。

这样的问题，你自己不应该太懒，居然连产品计划表的结构也懒得设计，别人怎么知道你要的是什么？

表结构设计好，多输入一点测试数据，让别人明白你的问题，才能更快获得答案。

 狐狸爸爸，请问一下，如果有多个客户订购同样产品，统计后都是重复产品值，有没有办法汇总后再显示，


此主题相关图片如下：qq拼音截图未命名.png

Dim Cus As List(Of String)
Dim dic As new Dictionary(of String,Integer)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    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
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("计划产品分解表").AddNew()
    dr("第一列") = key
    dr("第二列") = dic(key)
Next
MainTable = Tables("计划产品分解表")

 以前以为字典用的不多，忽视了，原来字典还有这样用处，真要好好学习一下，目的达到了，O(∩_∩)O谢谢