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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 汇总数据分摊

共有2695人关注过本帖树形打印复制链接主题：汇总数据分摊

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

汇总数据分摊 发帖心情

Post By：2023/2/28 15:48:00 [显示全部帖子]

老师，如图2，我想把费用明细为：其他管理费用的先全部汇总，再除以本月工时，但改后提示了如图1的错误，对应代码如下：请帮忙看看，谢谢

Dim cmd9 As New SQLCommand

cmd9.C

cmd9.CommandText = "UP DATE a9 Set a9.管理费用_其他管理费 = b9.费用明细 / b9.本月工时 * a9.加工时间 From (Sel ect 月份, Sum(费用明细) As 费用明细 From 生产成本总表 where 项目 = '管理费用' group by 月份) as b9 ,工序跟踪表 as a9 Where a9.月份 = b9.月份 and b9.费用明细 = '其他管理费' "

cmd9.ExecuteNonQuery()

此主题相关图片如下：1.png

此主题相关图片如下：2.jpg

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2023/2/28 16:15:00 [显示全部帖子]

老师，标注红色的代码帮忙看看，红色部分本来是b9.本月工时，我想用这种代码替代，因为用代码二里的代码提示如图1的异常，谢谢！

Dim cmd9 As New SQLC ommand

cmd9.C

cmd9.CommandText = "UPDA TE a9 Se t a9.管理费用_其他管理费 = b9.金额 / DataTables("工序跟踪表").sqlCompute("sum(加工时间)", " 月份 = '" & e.DataRow("月份") & "'") * a9.加工时间 From (Sel ect 月份, Sum(金额) As 金额 From 生产成本总表 where 项目 = '管理费用' and 费用明细 = '其他管理费' group by 月份) as b9 ,工序跟踪表 as a9 Where a9.月份 = b9.月份"

cmd9.ExecuteNonQuery()

代码二：

Dim cmd9 As New SQLComm and

cmd9.C

cmd9.CommandText = "UPDATE a9 Se t a9.管理费用_其他管理费 = b9.金额 / b9.本月工时 * a9.加工时间 From (Sel ect 月份, Sum(金额) As 金额 From 生产成本总表 where 项目 = '管理费用' and 费用明细 = '其他管理费' group by 月份) as b9 ,工序跟踪表 as a9 Where a9.月份 = b9.月份"

cmd9.ExecuteNonQuery()

此主题相关图片如下：1.jpg

[此贴子已经被作者于2023/2/28 16:18:56编辑过]

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2023/2/28 16:29:00 [显示全部帖子]

b9.本月工时是生产成本总表的，但是这个本月工时不能按照汇总的处理，是根据三楼红色代码统计来滴

[此贴子已经被作者于2023/2/28 16:29:54编辑过]

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2023/2/28 16:32:00 [显示全部帖子]

老师，这个本月工时不能汇总，是根据三楼红色代码统计来滴

cmd9.CommandText = "UPDATE a9 Se t a9.管理费用_其他管理费 = b9.金额 / b9.本月工时 * a9.加工时间 From (Sel ect 月份, Sum(金额) As 金额,sum(本月工时) as 本月工时 From 生产成本总表 where 项目 = '管理费用' and 费用明细 = '其他管理费' group by 月份) as b9 ,工序跟踪表 as a9 Where a9.月份 = b9.月份"

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2023/3/1 11:22:00 [显示全部帖子]

老师，请帮忙看看，提示如图2异常，谢谢

Dim cmd As New SQLC ommand

cmd.C

cmd.CommandText = "UPDATE a s et a.制造费用_油料费 = b.费用 / c.加工时间 * a.加工时间 from 工序跟踪表 as a ,油料成本明细 as b where a.月份 = b.月份 and a.使用设备 = b.使用设备 and b.使用类型 = '按设备算',(S elect 月份, sum(加工时间) as 加工时间 From 工序跟踪表 group by 月份 ) as c Where a.月份 = b.月份 and a.月份 = c.月份"

cmd.ExecuteNonQuery()

此主题相关图片如下：2.jpg

nuoyan89

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

加好友

发短信

等级：一尾狐帖子：452 积分：3122 威望：0 精华：0 注册：2020/10/9 8:45:00

Post By：2023/3/1 13:32:00 [显示全部帖子]

老师，如图1异常，我的两个表都有使用设备，如图2。b.使用设备 = c.使用设备如果改成：a.使用设备 = b.使用设备 ,异常是没有提示了，但是汇总的加工时间没有按照使用设备进行汇总，而是统计了一整个月的。

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "UPDATE a se t a.制造费用_油料费 = b.费用 / c.加工时间 * a.加工时间 from 工序跟踪表 as a ,油料成本明细 as b ,(S elect 月份, sum(加工时间) as 加工时间 From 工序跟踪表 group by 月份 ) as c Where a.月份 = b.月份 and a.月份 = c.月份 and b.使用设备 = c.使用设备 and b.使用类型 = '按设备算'"

cmd.ExecuteNonQuery()

此主题相关图片如下：1.jpg