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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 物料需求

共有2398人关注过本帖树形打印复制链接主题：物料需求

qinlao666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00

物料需求

Post By：2016/5/31 14:46:00 [只看该作者]

老师这个示例中，如何实现当前行产品物料需求的计算

也就是当生产计划中有相同的产品时，我只要计算当前这个产品的物料需求，不累计计算

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 14:47:00 [只看该作者]

上传实例。

qinlao666

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：444 积分：3794 威望：0 精华：0 注册：2015/3/3 10:06:00

物料需求

Post By：2016/5/31 15:07:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:物料需求.foxdb

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/31 15:11:00 [只看该作者]

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

下一主题 >> << 上一主题

主题：物料需求