主题：统计代码使用？

以下内容为程序代码:

1 Dim y As String = e.Form.Controls("ComboBox1").value
2 Dim sql As String = "selec t 日期,名称,收入金额, 0 as 借方金额,支出金额,0 as 贷方金额 fro m {电子单} where year(日期) = '"& y & "' union all selec t 日期, 名称,0 as 收入金额,借方金额,0 as 支出金额,贷方金额 fro m {日记账}where year(日期) = '"& y & "'"
3 Dim b As New CrossTableBuilder("统计表1",sql,"db")
4 Dim dt1 As fxDataSource
5 b.C
6 b.HGroups.AddDef("银行名称") '添加客户列用于水平分组
7 b.VGroups.AddDef("日期", "{0}月") '添加产品列用于垂直分组,并设置了Pattern参数
8 b.Totals.AddDef("借方金额", "收入金额_日记账")
9 b.Totals.AddDef("收入金额", "收入金额_电子")
10 b.Totals.AddDef("贷方金额", "支出金额_日记账")
11 b.Totals.AddDef("支出金额", "支出金额_电子")
12 dt1 = b.BuildDataSource()
13 Tables("统计窗口_Table3").DataSource = dt1