专家坐堂-交叉统计时用周的方式统计如何让周一变成每周的第一天Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉统计时用周的方式统计如何让周一变成每周的第一天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160787)

--  作者：xby407
--  发布时间：2021/2/21 22:14:00
--  交叉统计时用周的方式统计如何让周一变成每周的第一天

用周进行交叉统计时，自动显示周日为第一天，如何让周一成为每周的第一天？
交叉统计代码如下：
Dim g As New CrossTableBuilder("QQ群早起打卡交叉统计", DataTables("QQ群早起打卡统计"))
g.HGroups.AddDef("QQ号")
g.HGroups.AddDef("提交者")
g.VGroups.AddDef("提交日期", DateGroupEnum.Week, "2021年第{0}周得分")
g.VGroups.AddDef("提交日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("得分", "得分")
g.HorizontalTotal = True
g.Build()
MainTable = Tables("QQ群早起打卡交叉统计")

--  作者：有点蓝
--  发布时间：2021/2/21 22:37:00
--
使用SQL处理

dim sql as string = "select QQ号,提交者,case when DatePart(weekday,提交日期) = 1 then DatePart(week,提交日期) -1 else DatePart(week,提交日期) end AS [周次],提交日期,得分 from {QQ群早起打卡统计}"

Dim g As New CrossTableBuilder("QQ群早起打卡交叉统计", sql，“数据源名称”)
g.HGroups.AddDef("QQ号")
g.HGroups.AddDef("提交者")
g.VGroups.AddDef("周次", "2021年第{0}周得分")
g.VGroups.AddDef("提交日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("得分", "得分")
g.HorizontalTotal = True
g.Build()
MainTable = Tables("QQ群早起打卡交叉统计")