主题：[求助]物料需求表BOM统计加一列如何设计

根据帮助里面BOM统计示例，我想在零件需求表加一列订单号码，请问老师要怎么写，谢谢！

参考：http://www.foxtable.com/webhelp/topics/3395.htm

谢谢老师。 但是我的软件版本没有升级了，请问有没有办法在现有版本基础上用语言写出来？ 谢谢！
此主题相关图片如下：零件需求表.png

增加列参考：http://www.foxtable.com/webhelp/topics/1428.htm

谢谢老师。 对BOM这一节我不太了解，我现在需要的是根据各订单统计相应零件的需求数量，所以不知道怎样写，恳请老师帮忙。 非常感谢！

订单和用量合并为一个查询表：http://www.foxtable.com/webhelp/topics/2322.htm，然后按订单做个分组统计即可

谢谢老师。 因为查询表不能增加来源表之外的列，所以还是不太方便。我本来是想知道怎么按订单统计材料用量后再增加一列“采购状态”根据采购单明细筛选出未采购的订单和材料的。 不过没关系，我用查询表生成，然后在DRAWCELL里面把未采购的订单用颜色标出来也可以达到筛选的效果。

经过多次尝试，还是请老师指点一下，根据图示表格以下语句要怎么修改才能达到效果，限于我的软件版本，只有这个方法最为可行了，谢谢老师！
此主题相关图片如下：零件需求表.png

请上传实例测试， 并手工填写实际结果做对比

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("产品") & "'")
        Dim nm As String = dr2("零件") + dr1("订单号码")
        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