Bom嵌套展开到末级（计算材料用）

gjj136138139 · 发表于 2024-1-1 21:08

由于企业生产过程中有预制件（中间件），预制件下也有子件清单构成，所以bom涉及到嵌套的问题。现在的要求是把所有物料的bom都取出最末级的材料用量（对应所有子件的材料用量，注意材料用量要乘以其上一级父件用量），可能会涉及到多层嵌套的问题，但实际中不会超过4层。希望能用vba来解决。（排除循环引用的情况，实际业务中是没有死循环的情况）。如表所示。s002由3个c002和4个c005构成，而1个c005又由5个c001和6个c003构成，所以s002的最终构成是3个c002,20个C001,24个c003构成。应该是用到递归来解决，可是看了很多贴子，还是没学会。

micch · 发表于 2024-1-1 22:26

我也是，看了很多帖子，还是没学会，每次写的时候，都要从头再学一遍

wanghan519 · 发表于 2024-1-2 07:06

本帖最后由 wanghan519 于 2024-1-2 08:45 编辑

其实一行秒杀哥说的也没错，这种问题用sql写递归，思路比较清晰，写法比较简单

比如，sqlite3里，递归写法的执行过程大概是这样：
1. 把源表t，放入一个队列
2. 从队列里每次取出一行，执行union all后面的select语句，把结果放回上面的队列
3. 继续从队列取行，继续执行，取出的行不会再次被执行
4. 所有加入过队列的行都放入表r
（关于队列、取一行的说法，只是为了表述不会重复执行这个意思，实际不会这么没效率）
比如图中，就是把原表每一行展开，最后筛选出最后一级的结果

今铭昔 · 发表于 2024-1-2 07:39

cidanji · 发表于 2024-1-2 10:36

计算材料.rar (21.54 KB, 下载次数: 27)

gjj136138139 · 发表于 2024-1-2 14:58

cidanji 发表于 2024-1-2 10:36

非常感谢您写的代码。字典嵌套只能实现一层嵌套，如果再有下一层的嵌套时，数据是出不来的，因为你还在新生成一级字典，可扩展性不好。而且一般人都看不懂字典嵌套的代码。

gjj136138139 · 发表于 2024-1-2 15:01

wanghan519 发表于 2024-1-2 07:06
其实一行秒杀哥说的也没错，这种问题用sql写递归，思路比较清晰，写法比较简单

比如，sqlite3里，递归写 ...

数据库的话，比较麻烦，好多人电脑上都没法装。我希望是vba写出来的代码直接在office环境下解决问题。vba中的ADO对象支持的功能太少了，full outer join/when then end else/窗口函数/with(x)递归等都不支持。

wanghan519 · 发表于 2024-1-2 15:06

gjj136138139 发表于 2024-1-2 15:01
数据库的话，比较麻烦，好多人电脑上都没法装。我希望是vba写出来的代码直接在office环境下解决问题。vba ...

确实是这样，不过可以尝试这个xll，不用安装，excel、wps加载就可以写sqlite3

gjj136138139 · 发表于 2024-1-2 15:14

多层嵌套就容易出错，比方说再加一层。

gjj136138139 · 发表于 2024-1-2 15:15

cidanji 发表于 2024-1-2 10:36

加一层级，数就不对。得重新再生成一个字典。

		自动登录	找回密码
密码			免费注册

[求助] Bom嵌套展开到末级（计算材料用）

评分

评分