Dim b As New SQLCrossTableBuilder("费用明细表","部门损益总账")
b.C
b.AddTable("部门损益总账","部门名称","部门档案","部门名称")
b.AddTable("部门损益总账","科目编号","科目档案","科目编码")
b.HGroups.AddDef("{部门档案}.所属单位")
b.HGroups.AddDef("所属日期",DateGroupEnum.year,"年")
b.HGroups.AddDef("所属日期",DateGroupEnum.month,"月")
b.HGroups.AddDef("上级部门","部门")
b.HGroups.AddDef("部门类型")
b.VGroups.AddDef("成本类别")
b.VGroups.AddDef("{部门损益总账}.科目名称")
b.Totals.AddDef("借方发生")
b.Decimals = 2
b.HorizontalTotal = True
If User.Group = "总部财务" Then
b.Filter = "成本科目 = 1"
Else
b.Filter = "{部门损益总账}.所属单位 = \'" & User.Group & "\' and {部门损益总账}.审核人 <> \'\' And 成本科目 = 1"
End If
b.Build