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

Dim Filter,s1,s2,s3 ,flt1,ep1,ep2,ep3 As String

Dim fdt1,fdt2,fdt3,fdt4,fdt5,fdt6,fdt7,fdt8,fdt9 As fxDataSource

Dim fxdts As fxDataSource() ={fdt1,fdt2,fdt3,fdt4,fdt5,fdt6,fdt7,fdt8,fdt9}

Dim nms1 As String() = {"编码","名称","颜色","尺码","年份","季节","零售价"} \'分組列

Dim nms2 As String() = {"编码","名称","颜色","尺码","年份","季节"} \'分組列

Dim nms() As String

Dim bd1 As GroupTableBuilder

Dim t3 As Table = e.Form.Controls("库存报表").Table

Dim dt3,dt1,dt2 As DataTable

dt1=DataTables("出入库明细")

dt2=DataTables("库调明细表_主表")

flt1= "业务单号首位 = \'D\' and 收发类型= \'调拨出库\'@业务单号首位 = \'F\' and 收发类型= \'收货入库\'@业务单号首位 = \'T\' and 收发类型= \'返货出库\'@" \'條件組合

flt1+= "业务单号首位 = \'R\' and 收发类型= \'调拨出库\'@业务单号首位 = \'R\' and 收发类型= \'调拨入库\'@"

flt1+= "收发类型= \'零售出库\'@收发类型= \'零退入库\'@收发类型= \'库调\'@收发类型= \'退货入库\'"

ep1 = "IsNull([库房_收货入库],0) +IsNull([库房_返货出库],0)+IsNull([库房_调拨出库],0)+IsNull([店铺_退货入库],0)-Isnull([店铺_库调],0)"

ep2 = "IsNull([店铺_库调],0) +IsNull([店铺_调拨入库],0)+IsNull([店铺_调拨出库],0)+IsNull([店铺_零退入库],0)"

ep2+="-Isnull([店铺_零售出库],0)-Isnull([店铺_退货入库],0)"

ep3 = "IsNull([库房_合计],0) +IsNull([库房_合计],0)"

s3 ="品牌,门店,年份,季节,开始日期,截止日期"

For Each s2 In s3.split(",")

With e.Form.Controls(s2)

If .Value IsNot Nothing Then

If Filter > "" Then

Filter+ = " And "

End If

If s2 = "开始日期" Then

Filter+ = "单据日期 >= #" & .Value & "#"

ElseIf s2 = "截止日期" Then

Filter+ = "单据日期 <= #" & .Value & "#"

Else

Filter+ = s2 & " = \'" & .Value & "\'"

End If

End With

If Filter > "" Then

Tables("出入库明细").Filter = Filter

For n1 As Integer = 0 To fxdts.Length-1

If n1 > 6 Then

dt3 = dt2

Else

dt3 = dt1

End If

bd1 = New GroupTableBuilder("报表",dt3)

For Each s2 In nms1

If dt3.DataCols.Contains(s2) Then

bd1.Groups.AddDef(s2) \'分组

End If

bd1.Totals.AddDef("数量",s1.split("|")(n1)) \'对数量进行统计

bd1.Filter = flt1.split("@")(n1) & " and " & Filter

fxdts(n1) = bd1.BuildDataSource()

nms = iif(n1 < 7,nms1,nms2)

If n1 > 0 Then fxdts(0).Combine(nms,fxdts(n1),nms)

t3.StopRedraw

t3.DataSource = fxdts(0)

With t3.DataTable.DataCols

.Add("库房_合计", Gettype(Integer),ep1)

.Add("店铺_合计", Gettype(Integer),ep2)

.Add("店库_合计", Gettype(Integer),ep3)

End With

t3.ResumeRedraw

End If