老师，你好，下面的数据汇总模式代码中的{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
加好友 
发短信
Post By：2019/9/23 22:36:00 [只看该作者]
