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


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

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


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

用的是sql server,如果用这两代代码会不会更快一些
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，需要把分组的那一部分代码保留吗？UPDATE只是替换“Dim dt As DataTable = b.Build(True)  For Each dr As DataRow In dt.DataRows”这个代码的吗？我写后提示如图错误，我改的是分级求的没变，改成了UP DATE 成本总明细_明细查询 As a S et a.工时 = b.循环时间, a.直接工资_直接人工 = b.加工单价 From (Sel ect Sum(循环时间) As 工时, Sum(加工单价) As 直接工资_直接人工 From 工序跟踪表 Wh ere b.[成品编码] = a.成品编码 And b.[毛坯编码] = a.毛坯编码) As b

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

[此贴子已经被作者于2022/11/24 20:32:07编辑过]
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，那如果把11楼的代码写到按钮里，e.datarow这个有其他的变量方法吗？因为这个在按钮里不能用

Dim dr As DataRow = e.DataRow
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我改成了这样的，但是列名都是对的，但在执行过程中总是提示没有该列名。

For Each dr3 As Row In Tables("成本总明细_明细查询").Rows
    Dim ld As Integer
    Dim cmd As New SQLCommand
    cmd.CommandText = "Sel ect 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 [成品编码] = '" & dr3("成品编码") & "' and [毛坯编码] = '" & dr3("毛坯编码") & "'" 
    cmd.C
    Dim dt As DataTable = cmd.executereader
    Dim dr As DataRow = dt.datarows(0)
    dr3("工时") = dr("循环时间")
    dr3("直接材料_配件费用") = dr("直接材料_配件成本")
    dr3("直接工资_直接人工") = dr("加工单价")
    dr3("直接工资_社保费") = dr("直接工资_社保费")
    dr3("直接工资_福利费") = dr("直接工资_福利")
    dr3("直接工资_工时补助") = dr("直接工资_工时补助")
    dr3("制造费用_工资") = dr("制造费用_工资")
    dr3("制造费用_保险") = dr("制造费用_保险")
    dr3("制造费用_福利") = dr("制造费用_福利")
    dr3("制造费用_外协费用") = dr("制造费用_外协费用")
    dr3("制造费用_水费") = dr("制造费用_水费")
    dr3("制造费用_电费") = dr("制造费用_电费")
    dr3("制造费用_运输费") = dr("制造费用_运输费")
    dr3("制造费用_修理费") = dr("制造费用_修理费")
    dr3("制造费用_油料费") = dr("制造费用_油料费")
    dr3("制造费用_低值易耗") = dr("制造费用_低值易耗")
    dr3("制造费用_设备折旧") = dr("制造费用_设备折旧")
    dr3("制造费用_刀具修磨") = dr("制造费用_刀具修磨")
    dr3("制造费用_量检具费") = dr("制造费用_量检具费")
    dr3("制造费用_工装费用") = dr("制造费用_工装费用")
    dr3("管理费用_工资") = dr("管理费用_工资")
    dr3("直接材料_刀具费用") = dr("直接材料_刀具费用")
    dr3("管理费用_保险") = dr("管理费用_保险")
    dr3("管理费用_福利") = dr("管理费用_福利")
    dr3("管理费用_其他管理费") = dr("管理费用_其他管理费")
    dr3("制造费用_其他折旧") = dr("制造费用_其他折旧")
    dr3("制造费用_基础设施费") = dr("制造费用_基础设施费")
Next
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，改成27楼的后，不仅慢，而且还提示超时。
Dim b As New sqlGroupTableBuilder("统计表1", "工序跟踪表")
b.C
b.Groups.AddDef("成品编码") '根据产品分组
b.Groups.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("制造费用_低值易耗") '对数量进行统计
b.Totals.AddDef("直接工资_工时补助") '对数量进行统计
Dim dt As DataTable = b.Build(True)
dim dr as datarow = dt.datarows(0)
For Each dr3 As Row In Tables("成本总明细_明细查询").Rows
    dr = dt.find("成品编码 = '" & dr3("成品编码") & "' and 毛坯编码 = '" & dr3("毛坯编码") & "'")
    If dr IsNot Nothing Then
        dr3("工时") = dr("循环时间")
        dr3("直接材料_配件费用") = dr("直接材料_配件成本")
        dr3("直接工资_直接人工") = dr("加工单价")
        dr3("直接工资_社保费") = dr("直接工资_社保费")
        dr3("直接工资_福利费") = dr("直接工资_福利")
        dr3("直接工资_工时补助") = dr("直接工资_工时补助")
        dr3("制造费用_工资") = dr("制造费用_工资")
        dr3("制造费用_保险") = dr("制造费用_保险")
        dr3("制造费用_福利") = dr("制造费用_福利")
        dr3("制造费用_外协费用") = dr("制造费用_外协费用")
        dr3("制造费用_水费") = dr("制造费用_水费")
        dr3("制造费用_电费") = dr("制造费用_电费")
        dr3("制造费用_运输费") = dr("制造费用_运输费")
        dr3("制造费用_修理费") = dr("制造费用_修理费")
        dr3("制造费用_油料费") = dr("制造费用_油料费")
        dr3("制造费用_低值易耗") = dr("制造费用_低值易耗")
        dr3("制造费用_设备折旧") = dr("制造费用_设备折旧")
        dr3("制造费用_刀具修磨") = dr("制造费用_刀具修磨")
        dr3("制造费用_量检具费") = dr("制造费用_量检具费")
        dr3("制造费用_工装费用") = dr("制造费用_工装费用")
        dr3("管理费用_工资") = dr("管理费用_工资")
        dr3("直接材料_刀具费用") = dr("直接材料_刀具费用")
        dr3("管理费用_保险") = dr("管理费用_保险")
        dr3("管理费用_福利") = dr("管理费用_福利")
        dr3("管理费用_其他管理费") = dr("管理费用_其他管理费")
        dr3("制造费用_其他折旧") = dr("制造费用_其他折旧")
        dr3("制造费用_基础设施费") = dr("制造费用_基础设施费")
    End If
Next

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


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

成本总明细_明细查询这个表是一个窗口表，操作方法：点击查询按钮，查询出每个月1号和最后一天之间的明细，然后根据成本编码、毛坯编码等在工序跟踪表中汇总对列列的数据，把结果在返回记录到成本总明细_明细查询对表的列中（工序跟踪表是个数据表，每天会有3000条的数据录入）。

 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，提示超出界了，头一回弄这么复杂的代码，给老师添麻烦了。

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

Dim sql As String = "Sel ect * from 工序跟踪表 as a where exists(sel ect * from 条码基础数据 as b where 成本总明细_明细查询 and a.成本编码 = b.成本编码 and a.毛坯编码 = b.毛坯编码)"
Dim b As New GroupTableBuilder("统计表1", sql, "条码扫描系统数据库")
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim sql As String = "Sele ct * from 工序跟踪表 as a where exists(sele ct * from 条码基础数据 as b where a.成本编码 = b.成本编码 And a.毛坯编码 = b.毛坯编码)"
Dim b As New GroupTableBuilder("统计表1", sql, "条码扫描系统数据库")
b.Groups.AddDef("成品编码") '根据产品分组
b.Groups.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("制造费用_低值易耗") '对数量进行统计
b.Totals.AddDef("直接工资_工时补助") '对数量进行统计
Dim dt As DataTable = b.Build(True)
dim dr as datarow = dt.datarows(0)
For Each dr3 As Row In Tables("成本总明细_明细查询").Rows
    dr = dt.find("成品编码 = '" & dr3("成品编码") & "' and 毛坯编码 = '" & dr3("毛坯编码") & "'")
    If dr IsNot Nothing Then
        dr3("工时") = dr("循环时间")
        dr3("直接材料_配件费用") = dr("直接材料_配件成本")
        dr3("直接工资_直接人工") = dr("加工单价")
        dr3("直接工资_社保费") = dr("直接工资_社保费")
        dr3("直接工资_福利费") = dr("直接工资_福利")
        dr3("直接工资_工时补助") = dr("直接工资_工时补助")
        dr3("制造费用_工资") = dr("制造费用_工资")
        dr3("制造费用_保险") = dr("制造费用_保险")
        dr3("制造费用_福利") = dr("制造费用_福利")
        dr3("制造费用_外协费用") = dr("制造费用_外协费用")
        dr3("制造费用_水费") = dr("制造费用_水费")
        dr3("制造费用_电费") = dr("制造费用_电费")
        dr3("制造费用_运输费") = dr("制造费用_运输费")
        dr3("制造费用_修理费") = dr("制造费用_修理费")
        dr3("制造费用_油料费") = dr("制造费用_油料费")
        dr3("制造费用_低值易耗") = dr("制造费用_低值易耗")
        dr3("制造费用_设备折旧") = dr("制造费用_设备折旧")
        dr3("制造费用_刀具修磨") = dr("制造费用_刀具修磨")
        dr3("制造费用_量检具费") = dr("制造费用_量检具费")
        dr3("制造费用_工装费用") = dr("制造费用_工装费用")
        dr3("管理费用_工资") = dr("管理费用_工资")
        dr3("直接材料_刀具费用") = dr("直接材料_刀具费用")
        dr3("管理费用_保险") = dr("管理费用_保险")
        dr3("管理费用_福利") = dr("管理费用_福利")
        dr3("管理费用_其他管理费") = dr("管理费用_其他管理费")
        dr3("制造费用_其他折旧") = dr("制造费用_其他折旧")
        dr3("制造费用_基础设施费") = dr("制造费用_基础设施费")
    End If
Next
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我这个是放在另外一个按钮上的
Dim Filter As String
With e.Form.Controls("成品编码1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "成品编码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("使用状态1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "当前状态 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("毛坯编码1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "毛坯编码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("成品描述1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "成品描述 like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("单据日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "投产日期>= '" & .Value & "'"
    End If
End With
With e.Form.Controls("单据日期2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "投产日期 <= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    e.Form.controls("明细查询").Table.DataTable.LoadPage = 0
    e.Form.controls("明细查询").Table.DataTable.LoadFilter = Filter
    e.Form.controls("明细查询").Table.DataTable.Load
End If
Tables("成本总明细_明细查询").Sort = "投产日期 DESC"
With Tables("成本总明细_明细查询")
    .Select(.RowSel, .Cols("投产日期").Index)
End With
 回到顶部
美女呀，离线，留言给我吧！
nuoyan89
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢老师，效率一下就提升好多好多倍。

 回到顶部
总数 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.08203 秒, 5 次数据查询