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("库调明细表_主表")
s1 = "库房_调拨出库|库房_收货入库|库房_返货出库|店铺_调拨出库|店铺_调拨入库|店铺_零售出库|店铺_零退入库|店铺_库调|店铺_退货入库" '統計標題
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 If
End With
Next
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
Next
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)
Next
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
加好友 
发短信
Post By：2014/5/4 10:54:00 [只看该作者]
