统计代码使用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

统计代码的使用

以下内容为程序代码:

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

此主题相关图片如下：qq图片20201208120608.png

请教用这个代码出的统计表，为什么每个月的【收入金额】和【支出金额】不在一起呢？请教如何更改？

[此贴子已经被作者于2020/12/9 10:33:24编辑过]

感谢回复，

Dim y As String = e.Form.Controls("ComboBox1").value

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 & "'"

Dim b As New CrossTableBuilder("统计表1",sql,"db")

Dim dt1 As fxDataSource

b.C

b.HGroups.AddDef("名称") '添加客户列用于水平分组

b.VGroups.AddDef("日期", "{0}月") '添加产品列用于垂直分组,并设置了Pattern参数

b.Totals.AddDef("借方金额", "收入金额_日记账")

b.Totals.AddDef("贷方金额", "支出金额_日记账")

b.Totals.AddDef("收入金额", "收入金额_电子")

b.Totals.AddDef("支出金额", "支出金额_电子")

dt1 = b.BuildDataSource()

Tables("统计窗口_Table3").DataSource = dt1

调整成这样也是不行，显示也是不行

但是月份不是固定的，如何用代码？

1-12遍历一遍？

主题：统计代码使用？