- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194466)
-- 发布时间：2024/12/12 20:31:00
-- 日期显示问题
在月份列，都带一个“月”字，譬如：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") \'打开生成的统计表
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编辑过]
-- 发布时间：2024/12/12 21:52:00
--
生成统计表后，遍历所有行，把数值改为一月，二月等
dim ss() as string = {"一月","二月",..........}
for each r as row in Tables("统计表1").rows
r("月") = ss(r("月") - 1)
next
-- 发布时间：2024/12/13 9:39:00
--
输入代码后，出现错误
此主题相关图片如下：20241213.png
-- 发布时间：2024/12/13 9:48:00
--
这个是整数列，不能存储字符。还是另外增加一个字符列吧：http://www.foxtable.com/webhelp/topics/1428.htm