Dim Filter As String = '设置筛选条件
With e.Form.Controls("DW")
If .Value IsNot Nothing Then
Filter = "所属单位 = '" & .Value & "'"
End If
End With
With e.Form.Controls("BMLX") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "部门类型 = '" & .Value & "'"
End If
End With
With e.Form.Controls("BM") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "上级部门 = '" & .Value & "'"
End If
End With
Dim b As New SQLCrossTableBuilder("损益总体比率","部门损益总账")
b.AddTable("部门损益总账","部门名称","部门档案","部门名称")
b.AddTable("部门损益总账","科目编号","科目档案","科目编码")
b.HGroups.AddDef("所属单位")
b.HGroups.AddDef("部门类型")
b.HGroups.AddDef("所属日期", DateGroupEnum.Year, "年")
b.HGroups.AddDef("上级部门")
b.HGroups.AddDef("所属日期", "月")
b.VGroups.AddDef("一级科目")
b.Totals.AddDef("借方发生", "本月")
b.Totals.AddDef("借方发生", "累计", True)
b.Decimals = 0 '小数点取0位
b.Filter = "零售终端 = True And (" & filter & ")"
b.Build '生成统计表
加好友 
发短信
Post By：2015/12/28 14:19:00 [只看该作者]
此主题相关图片如下：123.png
