Foxtable(狐表)用户栏目专家坐堂 → BOM引用


  共有2781人关注过本帖树形打印复制链接

主题:BOM引用

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/29 14:45:00 [显示全部帖子]

合成条件那里,修改成符合你规则的条件。

 

 For Each dr2 As DataRow In DataTables("BOM基础数据").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' And [加工工序] = '" & dr1("加工工序") & "' And [加工内容] = '" & dr1("加工内容") & "'  and [使用设备] = '" & dr1("排产设备") & "' and 材料类型 = '刀具类' and 使用状态 = '使用中'")

 

如果不会做,上传具体实例,说明操作步骤以及你需要达到的效果


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/29 16:14:00 [显示全部帖子]

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("BOM基础数据").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' And [加工工序] = '" & dr1("加工工序") & "' And [加工内容] = '" & dr1("加工内容") & "'  and [使用设备] = '" & dr1("使用设备") & "' and 材料类型 = '刀具类' and 使用状态 = '使用中'")
        Dim nm As String = dr1("生产批次") & "|" & dr2("使用设备") & "|" & dr2("加工工序") & "|" & dr2("刀柄型号") & "|" & dr2("加工内容") & "|" & dr2("材料编码") & "|" & dr2("材料描述")
        Dim vl As Integer = dr2("用量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)
        End If
    Next
    For Each key As String In dic.keys
        Dim dr As DataRow = DataTables("生产计划下达_刀具明细").AddNew()
        Dim cr As DataRow = dr1
        dr("使用设备") = key.split("|")(1)
        dr("加工工序") = key.split("|")(2)
        dr("刀柄型号") = key.split("|")(3)
        dr("加工内容") = key.split("|")(4)
        dr("生产批次") = key.split("|")(0)
        dr("材料编码") = key.split("|")(5)
        dr("材料描述") = key.split("|")(6)
        dr("计划需求") = dic(key)
        dr("毛坯产地") = cr("毛坯产地")
        dr("成品编码") = cr("成品编码")
        dr("成品描述") = cr("成品描述")
        'dr("下达日期") = cr("下达日期")
        'dr("线别") = cr("线别")
        'dr("实际需求") = 1
    Next
Next

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 12:49:00 [显示全部帖子]

条件修改成你自己的条件啊,如果条件不重复,就会重复添加啊。

 

    For Each dr2 As DataRow In DataTables("BOM基础数据").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' And [加工工序] = '" & dr1("加工工序") & "' And [加工内容] = '" & dr1("加工内容") & "'  and [使用设备] = '" & dr1("使用设备") & "' and 材料类型 = '刀具类' and 使用状态 = '使用中'")
        Dim nm As String = dr1("生产批次") & "|" & dr2("使用设备") & "|" & dr2("加工工序") & "|" & dr2("刀柄型号") & "|" & dr2("加工内容") & "|" & dr2("材料编码") & "|" & dr2("材料描述")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 15:20:00 [显示全部帖子]

 

请就例子具体说明操作步骤。输入什么,最后得到什么操作结果。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 15:30:00 [显示全部帖子]

请就具体的例子输入数据后测试啊。

 

你给的例子没有数据啊。输入你给的值没有任何效果啊。

 

请上传具体可以测试的例子,说明怎么操作以后,最后得到怎样的效果啊


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 17:02:00 [显示全部帖子]

请上传正确可以测试的实例啊。你上传的例子没有你截图的那些数据啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/1 17:11:00 [显示全部帖子]

没有数据啊,去看你上传的文件的mdb数据库。那里没有数据啊。

 

而且,你希望得到怎样的效果?逻辑是什么?


 回到顶部