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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按条件进行物料需求运算

共有3407人关注过本帖树形打印复制链接主题：按条件进行物料需求运算

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/27 15:05:00 [显示全部帖子]

上传文件看这里 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/27 15:15:00 [显示全部帖子]

提问能否描述清楚一些, 销售记录都找不到物料需求列另外要怎么计算,也要描述清楚.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/27 15:27:00 [显示全部帖子]

尊敬的用户您好,请问您能否说明一下你要怎么计算呢?

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/27 15:54:00 [显示全部帖子]

Dim dic As new Dictionary(of String,Integer)
Dim xs As String
For Each dr1 As DataRow In DataTables("销售记录").select("销售订单号='" & e.form.controls("ComboBox1").text & "'")

    For Each dr2 As DataRow In DataTables("产品BOM").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
    dr = DataTables("物料需求").Find("零件代码 Is Null ")
    If dr Is Nothing Then
        dr = DataTables("物料需求").AddNew()
    End If
    dr("零件代码") = key
    dr("数量") = dic(key)
Next