主题：[求助]Select语句，痛点

老师，垂直统计出来了，水平按年怎么写哦

'垂直方向汇总
Dim t As Table = Tables("进项piao分年月统计_Table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "合同金额,2021年1月_开piao金额,2021年1月_税价合计金额,2021年1月_可抵扣增值税,2021年1月_可抵扣成本,2021年2月_开piao金额,2021年2月_税价合计金额,2021年2月_可抵扣增值税,2021年2月_可抵扣成本,2021年3月_开piao金额,2021年3月_税价合计金额,2021年3月_可抵扣增值税,2021年3月_可抵扣成本,2021年4月_开piao金额,2021年4月_税价合计金额,2021年4月_可抵扣增值税,2021年4月_可抵扣成本,2021年5月_开piao金额,2021年5月_税价合计金额,2021年5月_可抵扣增值税,2021年5月_可抵扣成本,2021年6月_开piao金额,2021年6月_税价合计金额,2021年6月_可抵扣增值税,2021年6月_可抵扣成本,2021年7月_开piao金额,2021年7月_税价合计金额,2021年7月_可抵扣增值税,2021年7月_可抵扣成本,2021年8月_开piao金额,2021年8月_税价合计金额,2021年8月_可抵扣增值税,2021年8月_可抵扣成本,2021年9月_开piao金额,2021年9月_税价合计金额,2021年9月_可抵扣增值税,2021年9月_可抵扣成本,2021年10月_开piao金额,2021年10月_税价合计金额,2021年10月_可抵扣增值税,2021年10月_可抵扣成本,2021年11月_开piao金额,2021年11月_税价合计金额,2021年11月_可抵扣增值税,2021年11月_可抵扣成本,2021年12月_开piao金额,2021年12月_税价合计金额,2021年12月_可抵扣增值税,2021年12月_可抵扣成本"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
t.Subtotal()

水平增加四列，统计一年的

g1.HGroups.AddDef("项目名称") '横向添加分组
g1.Totals.AddDef(d & "年开piao金额")      '添加统计列
g1.Totals.AddDef(d & "年税价合计金额")  '添加统计列
g1.Totals.AddDef(d & "年可抵扣增值税")  '添加统计列
g1.Totals.AddDef(d & "年可抵扣成本")  '添加统计列