以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙精简代码,谢谢!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61520)
--  作者：rophy0952
--  发布时间：2014/12/13 23:00:00
--  [求助]帮忙精简代码,谢谢!
有两段代码如下,烦请帮忙查看,能否帮忙简化一下,提高一下运算速度,谢谢!

jin:

If Tables("原材料进仓主表").Current.IsNull("仓库名称") = True Then
    MessageBox.Show("仓库名称不能为空!","提示")
    Return
End If

DataTables("原材料进仓明细表盘").Loadfilter = "入库单据 = \'"& forms("原材料进仓新增").controls("进仓单号").value &"\'"
DataTables("原材料进仓明细表盘").load
For Each r As Row In Tables("原材料进仓新增_原材料进仓明细表盘")
    If Forms("原材料进仓新增").Controls("仓库名称").value = "江门仓" OrElse Forms("原材料进仓新增").Controls("仓库名称").value = "新会仓" Then
        Dim dr As DataRow  \'否则在产品表查找同名的进仓单号行,将找到的行赋值给变量dr
        dr = DataTables("采购报价表").SQLFind("[物料代码] = \'" & r("入库仓库")& "\'")
        If dr IsNot Nothing Then \'如果找到了同名的进仓单号行,也就是dr不是Nothing
            r("型号") = dr("型号")
            r("规格") = dr("规格")
            r("产地") = dr("产地")
            r("等级") = dr("等级")
            r("单价") = dr("单价")
            r("单价1") = dr("单价1")
            r("仓库名称") = Forms("原材料进仓新增").Controls("仓库名称").value
        End If
    Else
        Dim dr1 As DataRow  \'否则在产品表查找同名的进仓单号行,将找到的行赋值给变量dr
        dr1 = DataTables("物料信息表").SQLFind("[物料代码] = \'" & r("入库仓库")& "\'")
        If dr1 IsNot Nothing Then \'如果找到了同名的进仓单号行,也就是dr不是Nothing
            r("型号") = dr1("型号")
            r("规格") = dr1("规格")
            r("产地") = dr1("产地")
            r("等级") = dr1("等级")
            r("仓库名称") = Forms("原材料进仓新增").Controls("仓库名称").value
        End If
    End If
Next

Dim r1 As Row = Tables("原材料进仓主表").Current
r1("总重量") = DataTables("原材料进仓明细表盘").Compute("sum(入库数量)","入库单据 = \'"& forms("原材料进仓新增").controls("进仓单号").value &"\'")
r1("总件数") = DataTables("原材料进仓明细表盘").Compute("count(条码)","入库单据 = \'"& forms("原材料进仓新增").controls("进仓单号").value &"\'")


chu:
DataTables("原材料出仓明细表盘").Loadfilter = "出库仓库 = \'"& forms("原材料出仓新增").controls("生产单号").value &"\'"
DataTables("原材料出仓明细表盘").load
For Each r As Row In Tables("原材料出仓新增_原材料出仓明细表盘").Rows
    r("物料代码") = Tables("原材料出仓主表").Current("物料代码")
If e.Form.Controls("基材来源").value = "兆业膜" Then
    Dim dr As DataRow = DataTables("采购报价表").SQLFind("[物料代码] = \'" & r("物料代码")& "\'")
    If dr IsNot Nothing Then \'如果找到了同名的进仓单号行,也就是dr不是Nothing
        r("型号") = dr("型号")
        r("规格") = dr("规格")
        r("产地") = dr("产地")
        r("等级") = dr("等级")
       r("出仓单号") = Forms("原材料出仓新增").Controls("出仓单号").value
End If
Dim dr1 As DataRow = DataTables("原材料进仓明细表盘").SQLfind("条码 = \'"& r("条码") &"\' And 已出仓 = False ")
If dr1 IsNot Nothing Then
r("单件重量") = dr1("入库数量")
        r("单价") = dr1("单价")
        r("单价1") = dr1("单价1") 
r("进仓单号") = dr1("入库单据")
End If   
Else
Dim dr1 As DataRow = DataTables("物料信息表").SQLFind("[物料代码] = \'" & r("物料代码")& "\'")
    If dr1 IsNot Nothing Then \'如果找到了同名的进仓单号行,也就是dr不是Nothing
        r("型号") = dr1("型号")
        r("规格") = dr1("规格")
        r("产地") = dr1("产地")
        r("等级") = dr1("等级")
       r("出仓单号") = Forms("原材料出仓新增").Controls("出仓单号").value
End If
End If
Next

Dim r1 As Row = Tables("原材料出仓主表").Current
r1("总重量") = DataTables("原材料出仓明细表盘").Compute("sum(单件重量)","出仓单号 = \'"& forms("原材料出仓新增").controls("出仓单号").value &"\'")
r1("总件数") = DataTables("原材料出仓明细表盘").Compute("count(条码)","出仓单号 = \'"& forms("原材料出仓新增").controls("出仓单号").value &"\'")
--  作者：有点甜
--  发布时间：2014/12/14 9:40:00
--  

 频繁的Load和SqlFind是很耗时的，你在此方向处理一下。

 

 不知道你具体的逻辑，你尽量表要用的表数据都先弄出来。
--  作者：rophy0952
--  发布时间：2014/12/14 10:14:00
--  
因为要调用相应的数据,如果不用SQLfind的话,有没有其它不耗时的方法呢?
--  作者：有点甜
--  发布时间：2014/12/14 10:40:00
--  

 你循环了n次，执行了n次耗时的代码 For Each r As Row In Tables("原材料进仓新增_原材料进仓明细表盘")

 

 n越大，就越慢。

 

 还不如，先把各表满足条件的数据，全部加载后，在去写你的查找或统计的逻辑。