运行效率太慢，求帮忙优化，提升效率 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下为产生库存报表窗口代码，运行一次要1个多小时，请各位高手帮忙看下，如何优化下，提高效率，谢谢！

Dim Filter   As   String
With e.Form.Controls("品牌")
    If .Value   IsNot   Nothing Then
        Filter =   "品牌 = '" & .Value &   "'"
    End   If
End   With

With e.Form.Controls("门店")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "门店 = '" & .Value &   "'"
    End   If
End   With

With e.Form.Controls("年份")
    If .Value   IsNot   Nothing   Then
        If Filter > ""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "年份 = '" & .Value &   "'"
    End   If
End   With
With e.Form.Controls("季节")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "季节 = '" & .Value &   "'"
    End   If
End   With

With e.Form.Controls("开始日期")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "单据日期 >= #" & .Value &   "#"
    End   If
End   With
With e.Form.Controls("截止日期")
    If .Value   IsNot   Nothing   Then
        If Filter >""   Then
            Filter = Filter &   " And "
        End   If
        Filter = Filter &   "单据日期 <= #" & .Value &   "#"
    End   If
End   With

If Filter > "" Then
Tables("出入库明细").Filter = Filter
End If

DataTables("库存报表").DataRows.clear
Tables("库存报表").StopRedraw
Dim dt1,dt2 As DataTable
dt1=DataTables("出入库明细")
dt2=DataTables("库调明细表_主表")
Dim Arys As List(Of String())
Dim dr As DataRow
Arys = DataTables("出入库明细").GetValues("编码|名称|颜色|尺码|年份|季节|零售价|款号|大类",Filter)
For Each Ary As String() In Arys
    dr= DataTables("库存报表").addnew
    dr("编码")=Ary(0)
    dr("名称")=Ary(1)
    dr("颜色")=Ary(2)
    dr("尺码")=Ary(3)
    dr("年份")=Ary(4)
    dr("季节")=Ary(5)
    dr("零售价")=Ary(6)


    dr("库房_调拨出库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 业务单号首位 = 'D' and 收发类型= '调拨出库'")
    dr("库房_收货入库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 业务单号首位 = 'F' and 收发类型= '收货入库'")
    dr("库房_返货出库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 业务单号首位 = 'T' and 收发类型= '返货出库'")
    dr("店铺_调拨出库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 业务单号首位 = 'R' and 收发类型= '调拨出库'")
    dr("店铺_调拨入库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 业务单号首位 = 'R' and 收发类型= '调拨入库'")
    dr("店铺_零售出库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 收发类型= '零售出库'")
    dr("店铺_零退入库")=dt1.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 收发类型= '零退入库'")

    dr("店铺_库调")=dt2.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 收发类型= '库调'")
    dr("店铺_退货入库")=dt2.Compute("sum(数量)",Filter & " and 编码 = '"& dr("编码") & "' and 收发类型= '退货入库'")

    dr("库房_合计")=dr("库房_收货入库") +dr("店铺_退货入库")+dr("库房_返货出库")-dr("店铺_库调")+dr("库房_调拨出库")
    dr("店铺_合计")=dr("店铺_库调")+dr("店铺_调拨入库")+dr("店铺_调拨出库")-dr("店铺_零售出库")+dr("店铺_零退入库")-dr("店铺_退货入库")
    dr("店库_合计")=dr("库房_合计")+dr("库房_合计")

Next

Tables("库存报表").ResumeRedraw

下载信息 [文件大小：下载次数： ]
点击浏览该文件:进销存.rar

主题：运行效率太慢，求帮忙优化，提升效率