| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于日期周的统计周期截止问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141199) |
| -- 作者：狐表（小白） -- 发布时间：2019/9/23 22:36:00 -- 关于日期周的统计周期截止问题 老师，你好，下面的数据汇总模式代码中的{0}周 小计统计周期能否用什么办法转换成（上个星期日-下个星期六），原来默认的统计周期是(星期一至星期天）。谢谢！ Select Case e.Stripitem.name Case "设置汇总模式" Dim t As Table = Tables("不良品统计表") Dim g As Subtotalgroup t.SubtotalGroups.Clear() t.GroupAboveData = True t.TreeVisible = True g = New Subtotalgroup g.Aggregate = AggregateEnum.sum g.GroupOn = "日期" g.TotalOn = "检查频次,单数,金额" g.Caption = "{0}周 小计" g.Dategroup = DategroupEnum.week t.SubtotalGroups.Add(g) g = New Subtotalgroup g.Aggregate = AggregateEnum.sum g.GroupOn = "日期" g.TotalOn = "检查频次,单数,金额" g.Caption = "{0}月 小计" g.Dategroup = DategroupEnum.month t.SubtotalGroups.Add(g) g = New Subtotalgroup g.Aggregate = AggregateEnum.Sum g.GroupOn = "部门" g.TotalOn = "检查频次,单数,金额" g.Caption = "{0}总计" t.SubtotalGroups.Add(g) g = New Subtotalgroup g.Aggregate = AggregateEnum.Sum g.GroupOn = "*" g.TotalOn = "检查频次,单数,金额" g.Caption = "总计" t.SubtotalGroups.Add(g) t.Subtotal() Case "退出汇总模式" Tables("不良品统计表").ClearSubtotal() End Select |
| -- 作者：有点蓝 -- 发布时间：2019/9/23 22:54:00 -- 增加一个辅助列【周数】，把日期转换为一年的周数，然后通过周数进行汇总 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=94151&skin=0
|