主题：垂直汇总

请教一下老师，动态生成的表，我在做垂直汇总时，年是根据选择的年，红色位置应该怎么写呢？？

Dim iYear As Integer = e.Form.Controls("所属年度").value

'垂直方向汇总
Dim g As New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
'g.TotalOn = "合同金额,2021年1月_开piao金额,2021年1月_已现金补税,2021年1月_税价合计金额,2021年1月_可抵扣增值税,2021年1月_可抵扣成本,2021年2月_开piao金额,2021年2月_已现金补税,2021年2月_税价合计金额,2021年2月_可抵扣增值税,2021年2月_可抵扣成本,2021年3月_开piao金额,2021年3月_已现金补税,2021年3月_税价合计金额,2021年3月_可抵扣增值税,2021年3月_可抵扣成本,2021年4月_开piao金额,2021年4月_已现金补税,2021年4月_税价合计金额,2021年4月_可抵扣增值税,2021年4月_可抵扣成本,2021年5月_开piao金额,2021年5月_已现金补税,2021年5月_税价合计金额,2021年5月_可抵扣增值税,2021年5月_可抵扣成本,2021年6月_开piao金额,2021年6月_已现金补税,2021年6月_税价合计金额,2021年6月_可抵扣增值税,2021年6月_可抵扣成本,2021年7月_开piao金额,2021年7月_已现金补税,2021年7月_税价合计金额,2021年7月_可抵扣增值税,2021年7月_可抵扣成本,2021年8月_开piao金额,2021年8月_已现金补税,2021年8月_税价合计金额,2021年8月_可抵扣增值税,2021年8月_可抵扣成本,2021年9月_开piao金额,2021年9月_已现金补税,2021年9月_税价合计金额,2021年9月_可抵扣增值税,2021年9月_可抵扣成本,2021年10月_开piao金额,2021年10月_已现金补税,2021年10月_税价合计金额,2021年10月_可抵扣增值税,2021年10月_可抵扣成本,2021年11月_开piao金额,2021年11月_已现金补税,2021年11月_税价合计金额,2021年11月_可抵扣增值税,2021年11月_可抵扣成本,2021年12月_开piao金额,2021年12月_已现金补税,2021年12月_税价合计金额,2021年12月_可抵扣增值税,2021年12月_可抵扣成本"
g.TotalOn = "合同金额,2021年1月_开piao金额,2021年1月_已现金补税,2021年1月_税价合计金额,2021年1月_可抵扣增值税,2021年1月_可抵扣成本,2021年2月_开piao金额,2021年2月_已现金补税,2021年2月_税价合计金额,2021年2月_可抵扣增值税,2021年2月_可抵扣成本,2021年3月_开piao金额,2021年3月_已现金补税,2021年3月_税价合计金额,2021年3月_可抵扣增值税,2021年3月_可抵扣成本,2021年4月_开piao金额,2021年4月_已现金补税,2021年4月_税价合计金额,2021年4月_可抵扣增值税,2021年4月_可抵扣成本,2021年5月_开piao金额,2021年5月_已现金补税,2021年5月_税价合计金额,2021年5月_可抵扣增值税,2021年5月_可抵扣成本,2021年6月_开piao金额,2021年6月_已现金补税,2021年6月_税价合计金额,2021年6月_可抵扣增值税,2021年6月_可抵扣成本,2021年7月_开piao金额,2021年7月_已现金补税,2021年7月_税价合计金额,2021年7月_可抵扣增值税,2021年7月_可抵扣成本,2021年8月_开piao金额,2021年8月_已现金补税,2021年8月_税价合计金额,2021年8月_可抵扣增值税,2021年8月_可抵扣成本,2021年9月_开piao金额,2021年9月_已现金补税,2021年9月_税价合计金额,2021年9月_可抵扣增值税,2021年9月_可抵扣成本,2021年10月_开piao金额,2021年10月_已现金补税,2021年10月_税价合计金额,2021年10月_可抵扣增值税,2021年10月_可抵扣成本,2021年11月_开piao金额,2021年11月_已现金补税,2021年11月_税价合计金额,2021年11月_可抵扣增值税,2021年11月_可抵扣成本,2021年12月_开piao金额,2021年12月_已现金补税,2021年12月_税价合计金额,2021年12月_可抵扣增值税,2021年12月_可抵扣成本,2021年_开piao金额,2021年_已现金补税,2021年_税价合计金额,2021年_可抵扣增值税,2021年_可抵扣成本"
g.Caption = "总计"
With tbl
    .SubtotalGroups.Clear() '清除原有的分组
    .SubtotalGroups.Add(g) '加入刚刚定义的分组
    .Subtotal() '生成汇总模式
End With

此主题相关图片如下：qq截图20211224161923.jpg

Dim iYear As Integer = e.Form.Controls("所属年度").value

'垂直方向汇总
Dim g As New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "合同金额,2021年1月_开piao金额,2021年1月_已现金补税,2021年1月_税价合计金额,2021年1月_可抵扣增值税,2021年1月_可抵扣成本"

红色位置2021年写成变量  ： iYear，应该怎么写呢？