Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求和代码优化


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

主题：求和代码优化
美女呀，离线，留言给我吧！
nuoyan89
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		求和代码优化  发帖心情 Post By：2022/11/22 21:59:00 [显示全部帖子]

老师，以下代码有比较优化点的吗？我求和之后，就6个毛坯编码，得用30秒时间。请帮忙看看，谢谢
If e.DataCol.Name = "成品编码" OrElse e.DataCol.Name = "毛坯编码" Then
    Dim Filter As String = "[成品编码] = '" & e.DataRow("成品编码") & "' and [毛坯编码] = '" & e.DataRow("毛坯编码") & "'"
    e.DataRow("工时") = DataTables("工序跟踪表").SQLCompute("Sum(循环时间)", Filter)
    e.DataRow("直接材料_配件费用") = DataTables("工序跟踪表").SQLCompute("Sum(直接材料_配件成本)", Filter)
    e.DataRow("直接工资_直接人工") = DataTables("工序跟踪表").SQLCompute("Sum(加工单价)", Filter)
    e.DataRow("直接工资_社保费") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_社保费)", Filter)
    e.DataRow("直接工资_福利费") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_福利)", Filter)
    e.DataRow("直接工资_工时补助") = DataTables("工序跟踪表").SQLCompute("Sum(直接工资_工时补助)", Filter)
    e.DataRow("制造费用_工资") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_工资)", Filter)
    e.DataRow("制造费用_保险") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_保险)", Filter)
    e.DataRow("制造费用_福利") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_福利)", Filter)
    e.DataRow("制造费用_外协费用") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_外协费用)", Filter)
    e.DataRow("制造费用_水费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_水费)", Filter)
    e.DataRow("制造费用_电费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_电费)", Filter)
    e.DataRow("制造费用_运输费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_运输费)", Filter)
    e.DataRow("制造费用_修理费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_修理费)", Filter)
    e.DataRow("制造费用_油料费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_油料费)", Filter)
    e.DataRow("制造费用_低值易耗") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_低值易耗)", Filter)
    e.DataRow("制造费用_设备折旧") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_设备折旧)", Filter)
    e.DataRow("制造费用_刀具修磨") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_刀具修磨)", Filter)
    e.DataRow("制造费用_量检具费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_量检具费)", Filter)
    e.DataRow("制造费用_工装费用") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_工装费用)", Filter)
    e.DataRow("管理费用_工资") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_工资)", Filter)
    e.DataRow("直接材料_刀具费用") = DataTables("工序跟踪表").SQLCompute("Sum(直接材料_刀具费用)", Filter)
    e.DataRow("管理费用_保险") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_保险)", Filter)
    e.DataRow("管理费用_福利") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_福利)", Filter)
    e.DataRow("管理费用_其他管理费") = DataTables("工序跟踪表").SQLCompute("Sum(管理费用_其他管理费)", Filter)
    e.DataRow("制造费用_其他折旧") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_其他折旧)", Filter)
    e.DataRow("制造费用_基础设施费") = DataTables("工序跟踪表").SQLCompute("Sum(制造费用_基础设施费)", Filter)
End If
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/22 22:49:00 [显示全部帖子]

老师，我放在表事件中的，改完出现如图的异常

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

Se lect Sum(循环时间) As 工时, Sum(直接材料_配件成本) As 直接材料_配件费用, Sum(加工单价) As 直接工资_直接人工, Sum(直接工资_社保费) As 直接工资_社保费, Sum(直接工资_福利) As 直接工资_福利费, Sum(直接工资_工时补助) As 直接工资_工时补助, Sum(制造费用_工资) As 制造费用_工资, Sum(制造费用_保险) As 制造费用_保险, Sum(制造费用_福利) As 制造费用_福利, Sum(制造费用_外协费用) As 制造费用_外协费用, Sum(制造费用_水费) As 制造费用_水费, Sum(制造费用_电费) As 制造费用_电费, Sum(制造费用_运输费) As 制造费用_运输费, Sum(制造费用_设备折旧) As 制造费用_设备折旧, Sum(管理费用_工资) As 管理费用_工资, Sum(管理费用_其他管理费) As 管理费用_其他管理费, Sum(制造费用_修理费) As 制造费用_修理费, Sum(制造费用_刀具修磨) As 制造费用_刀具修磨, Sum(直接材料_刀具费用) As 直接材料_刀具费用, Sum(制造费用_其他折旧) As 制造费用_其他折旧, Sum(制造费用_油料费) As 制造费用_油料费, Sum(制造费用_量检具费) As 制造费用_量检具费, Sum(管理费用_保险) As 管理费用_保险, Sum(制造费用_基础设施费) As 制造费用_基础设施费, Sum(制造费用_低值易耗) As 制造费用_低值易耗, Sum(制造费用_工装费用) As 制造费用_工装费用, Sum(管理费用_福利) As 管理费用_福利 From 工序跟踪表 Where [成品编码] = '" & e.DataRow("成品编码") & "' and [毛坯编码] = '" & e.DataRow("毛坯编码") & "'" 
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 15:07:00 [显示全部帖子]

老师，我改成了下面的，但是没有统计结果（基础数据有值的）也没有其他提示，请帮忙看看，谢谢

Dim ld As Integer
Dim cmd As New SQLCommand
cmd.CommandText = "S elect Sum(循环时间) As 工时, Sum(直接材料_配件成本) As 直接材料_配件费用, Sum(加工单价) As 直接工资_直接人工, Sum(直接工资_社保费) As 直接工资_社保费, Sum(直接工资_福利) As 直接工资_福利费, Sum(直接工资_工时补助) As 直接工资_工时补助, Sum(制造费用_工资) As 制造费用_工资, Sum(制造费用_保险) As 制造费用_保险, Sum(制造费用_福利) As 制造费用_福利, Sum(制造费用_外协费用) As 制造费用_外协费用, Sum(制造费用_水费) As 制造费用_水费, Sum(制造费用_电费) As 制造费用_电费, Sum(制造费用_运输费) As 制造费用_运输费, Sum(制造费用_设备折旧) As 制造费用_设备折旧, Sum(管理费用_工资) As 管理费用_工资, Sum(管理费用_其他管理费) As 管理费用_其他管理费, Sum(制造费用_修理费) As 制造费用_修理费, Sum(制造费用_刀具修磨) As 制造费用_刀具修磨, Sum(直接材料_刀具费用) As 直接材料_刀具费用, Sum(制造费用_其他折旧) As 制造费用_其他折旧, Sum(制造费用_油料费) As 制造费用_油料费, Sum(制造费用_量检具费) As 制造费用_量检具费, Sum(管理费用_保险) As 管理费用_保险, Sum(制造费用_基础设施费) As 制造费用_基础设施费, Sum(制造费用_低值易耗) As 制造费用_低值易耗, Sum(制造费用_工装费用) As 制造费用_工装费用, Sum(管理费用_福利) As 管理费用_福利 From 工序跟踪表 Where [成品编码] = '" & e.DataRow("成品编码") & "' and [毛坯编码] = '" & e.DataRow("毛坯编码") & "'" 
cmd.C
ld = cmd.ExecuteScalar()
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 15:35:00 [显示全部帖子]

老师，提示异常，请帮忙看看，谢谢
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 16:25:00 [显示全部帖子]

老师，已改好，我想把对应的值保存到对应的列里，需要怎么设置呢？改完之后，结果是对的，我想把结果保存到当前窗口表中
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 16:36:00 [显示全部帖子]

我用了另外一种方法，也实现了，谢谢
Dim dr As DataRow = e.DataRow
dr("工时")=(dt.DataRows(0)("工时"))
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 16:53:00 [显示全部帖子]

老师，请教下另外一个问题，我目前代码全部改好了，在计算过程中的用时还是很慢，总共1282条，目前10分钟了，还没有统计完成，这个是因为数据太多了吗？另外，数据量比较大的情况下需要求和的话，有什么比较快点的办法吗？
[此贴子已经被作者于2022/11/23 16:54:55编辑过]
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 17:05:00 [显示全部帖子]

老师，就用当前的这个例子，能有代码参考吗？我这个从16点44分，到现在还没有出来。
图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/11/23 17:06:57编辑过]
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/23 20:37:00 [显示全部帖子]

老师，我改成了以下代码，不知道是不是数据多了（1200多条），计算速度还是和14楼那种慢，因为我要把统计的结果赋值到目前的窗口表对应的列中，感觉赋值的时候比较慢

Dim b As New sqlGroupTableBuilder("统计表1", "工序跟踪表")
b.Groups.AddDef("成品编码") '根据产品分组
b.Groups.AddDef("毛坯编码") '根据产品分组
b.Filter = "成品编码 = '" & e.DataRow("成品编码") & "' and 毛坯编码 = '" & e.DataRow("毛坯编码") & "'"
b.Totals.AddDef("循环时间") '对数量进行统计
b.Totals.AddDef("加工单价") '对数量进行统计
b.Totals.AddDef("直接材料_刀具费用") '对数量进行统计
b.Totals.AddDef("直接材料_配件成本") '对数量进行统计
b.Totals.AddDef("直接工资_社保基数") '对数量进行统计
b.Totals.AddDef("直接工资_社保费") '对数量进行统计
b.Totals.AddDef("制造费用_油料费") '对数量进行统计
b.Totals.AddDef("制造费用_量检具费") '对数量进行统计
b.Totals.AddDef("制造费用_运输费") '对数量进行统计
b.Totals.AddDef("制造费用_工装费用") '对数量进行统计
b.Totals.AddDef("制造费用_设备折旧") '对数量进行统计
b.Totals.AddDef("制造费用_外协费用") '对数量进行统计
b.Totals.AddDef("制造费用_水费") '对数量进行统计
b.Totals.AddDef("制造费用_电费") '对数量进行统计
b.Totals.AddDef("直接工资_福利") '对数量进行统计
b.Totals.AddDef("制造费用_工资") '对数量进行统计
b.Totals.AddDef("制造费用_福利") '对数量进行统计
b.Totals.AddDef("制造费用_保险") '对数量进行统计
b.Totals.AddDef("制造费用_修理费") '对数量进行统计
b.Totals.AddDef("制造费用_基础设施费") '对数量进行统计
b.Totals.AddDef("制造费用_其他折旧") '对数量进行统计
b.Totals.AddDef("管理费用_工资") '对数量进行统计
b.Totals.AddDef("管理费用_保险") '对数量进行统计
b.Totals.AddDef("管理费用_福利") '对数量进行统计
b.Totals.AddDef("管理费用_其他管理费") '对数量进行统计
b.Totals.AddDef("制造费用_刀具修磨") '对数量进行统计
b.Totals.AddDef("制造费用_低值易耗") '对数量进行统计
b.Totals.AddDef("直接工资_工时补助") '对数量进行统计
Dim dt As DataTable = b.Build(True)
For Each dr As DataRow In dt.DataRows
    e.DataRow("工时") = dr("循环时间")
    e.DataRow("直接材料_配件费用") = dr("直接材料_配件成本")
    e.DataRow("直接工资_直接人工") = dr("加工单价")
    e.DataRow("直接工资_社保费") = dr("直接工资_社保费")
    e.DataRow("直接工资_福利费") = dr("直接工资_福利")
    e.DataRow("直接工资_工时补助") = dr("直接工资_工时补助")
    e.DataRow("制造费用_工资") = dr("制造费用_工资")
    e.DataRow("制造费用_保险") = dr("制造费用_保险")
    e.DataRow("制造费用_福利") = dr("制造费用_福利")
    e.DataRow("制造费用_外协费用") = dr("制造费用_外协费用")
    e.DataRow("制造费用_水费") = dr("制造费用_水费")
    e.DataRow("制造费用_电费") = dr("制造费用_电费")
    e.DataRow("制造费用_运输费") = dr("制造费用_运输费")
    e.DataRow("制造费用_修理费") = dr("制造费用_修理费")
    e.DataRow("制造费用_油料费") = dr("制造费用_油料费")
    e.DataRow("制造费用_低值易耗") = dr("制造费用_低值易耗")
    e.DataRow("制造费用_设备折旧") = dr("制造费用_设备折旧")
    e.DataRow("制造费用_刀具修磨") = dr("制造费用_刀具修磨")
    e.DataRow("制造费用_量检具费") = dr("制造费用_量检具费")
    e.DataRow("制造费用_工装费用") = dr("制造费用_工装费用")
    e.DataRow("管理费用_工资") = dr("管理费用_工资")
    e.DataRow("直接材料_刀具费用") = dr("直接材料_刀具费用")
    e.DataRow("管理费用_保险") = dr("管理费用_保险")
    e.DataRow("管理费用_福利") = dr("管理费用_福利")
    e.DataRow("管理费用_其他管理费") = dr("管理费用_其他管理费")
    e.DataRow("制造费用_其他折旧") = dr("制造费用_其他折旧")
    e.DataRow("制造费用_基础设施费") = dr("制造费用_基础设施费")
Next
[此贴子已经被作者于2022/11/23 21:18:01编辑过]
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：3495 威望：0 精华：0 注册：2020/10/9 8:45:00 		  发帖心情 Post By：2022/11/24 16:27:00 [显示全部帖子]

老师，把updatea或用list( of datarow)和for each的区别在哪里呢？怎么用呢？
list (ofdatarow)替代以for each
Dim dr As List(Of DataRow)
    e.DataRow("工时") = dr("循环时间")
    e.DataRow("直接材料_配件费用") = dr("直接材料_配件成本")
    e.DataRow("直接工资_直接人工") = dr("加工单价")
    e.DataRow("直接工资_社保费") = dr("直接工资_社保费")
    e.DataRow("直接工资_福利费") = dr("直接工资_福利")
    e.DataRow("直接工资_工时补助") = dr("直接工资_工时补助")
    e.DataRow("制造费用_工资") = dr("制造费用_工资")
    e.DataRow("制造费用_保险") = dr("制造费用_保险")
    e.DataRow("制造费用_福利") = dr("制造费用_福利")
    e.DataRow("制造费用_外协费用") = dr("制造费用_外协费用")
    e.DataRow("制造费用_水费") = dr("制造费用_水费")
    e.DataRow("制造费用_电费") = dr("制造费用_电费")
    e.DataRow("制造费用_运输费") = dr("制造费用_运输费")
    e.DataRow("制造费用_修理费") = dr("制造费用_修理费")
    e.DataRow("制造费用_油料费") = dr("制造费用_油料费")
    e.DataRow("制造费用_低值易耗") = dr("制造费用_低值易耗")
    e.DataRow("制造费用_设备折旧") = dr("制造费用_设备折旧")
    e.DataRow("制造费用_刀具修磨") = dr("制造费用_刀具修磨")
    e.DataRow("制造费用_量检具费") = dr("制造费用_量检具费")
    e.DataRow("制造费用_工装费用") = dr("制造费用_工装费用")
    e.DataRow("管理费用_工资") = dr("管理费用_工资")
    e.DataRow("直接材料_刀具费用") = dr("直接材料_刀具费用")
    e.DataRow("管理费用_保险") = dr("管理费用_保险")
    e.DataRow("管理费用_福利") = dr("管理费用_福利")
    e.DataRow("管理费用_其他管理费") = dr("管理费用_其他管理费")
    e.DataRow("制造费用_其他折旧") = dr("制造费用_其他折旧")
    e.DataRow("制造费用_基础设施费") = dr("制造费用_基础设施费")
[此贴子已经被作者于2022/11/24 16:38:34编辑过]
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询