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

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

共有4202人关注过本帖树形打印复制链接主题：用料需求计算

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 22:46:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/1472.htm

代码自行编写。

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2017/8/16 23:13:00 [只看该作者]

还是麻烦给个代码实例吧，多对多的确实没有做过。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 23:24:00 [只看该作者]

For Each dr As DataRow In DataTables("用料").Select("产品分类 = '" & e.DataRow("产品分类") & "' and 型号 = '" & e.DataRow("型号") & "' and 规格 = '" & e.DataRow("规格") & "'")
dr("计算用料") = e.DataRow("数量") * dr("标准用料")
Next

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2017/8/16 23:31:00 [只看该作者]

谢谢甜老师，这么晚了还在工作，辛苦了。

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2017/8/17 6:56:00 [只看该作者]

不好意思，昨天太晚了，没有验证。
上述代码不是多对多，因为产品表中有重复的产品

[此贴子已经被作者于2017/8/17 6:56:59编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/17 9:23:00 [只看该作者]

Dim sum As Double = e.DataTable.Compute("sum(数量)", "产品分类 = '" & e.DataRow("产品分类") & "' and 型号 = '" & e.DataRow("型号") & "' and 规格 = '" & e.DataRow("规格") & "'")
For Each dr As DataRow In DataTables("用料").Select("产品分类 = '" & e.DataRow("产品分类") & "' and 型号 = '" & e.DataRow("型号") & "' and 规格 = '" & e.DataRow("规格") & "'")
dr("计算用料") = sum * dr("标准用料")
Next