Dim Filter As String = "1=1" '设置筛选条件
With e.Form.Controls("DW")
If .Value IsNot Nothing Then
Filter &= " and 所属单位 = '" & .Value & "'"
Else
Filter &= " and 所属单位 in ('" & .ComboList.Replace("|", "','") & "')"
End If
End With
With e.Form.Controls("date")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "所属日期 = #" & .Value & "#"
End If
End With
Dim g As New SQLgroupTableBuilder("库存结构分析", "库存结构")
g.Groups.AddDef("所属日期")
g.Groups.AddDef("所属单位")
g.Groups.AddExp("年份季节","[产品年份] + [产品季节]")
g.Totals.AddDef("库存数量")
g.Decimals = 2
g.Filter = filter
g.GroupProportion = True
g.Build()