在月份列,都带一个“月”字,譬如:4月,5月,6月等,甚至要在大写数字,一月,二月等,怎么写代码
此主题相关图片如下:测.png
Dim b As New
GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") '添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("金额") '添加金额列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
[此贴子已经被作者于2024/12/12 20:31:56编辑过]
生成统计表后,遍历所有行,把数值改为一月,二月等
dim ss() as string = {"一月","二月",..........}
for each r as row in Tables("统计表1").rows
r("月") = ss(r("月") - 1)
next