汇总模式如何将日期放在最后分组？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，您好：

现希望能够进行如下汇总：每周各个项目在某个状态下的清单，请问该如何把日期按 “每周” 汇总，并放在最后？

谢谢！

可能我没表达清晰，我希望日期的分组，是最顶层的分组，其后才是其他分组。

现在的问题是，日期的分组（code中在最前面），结果展现出来，是在最底层。见下图

希望 “周”的分组，能够在 “最顶层”，其下面才是周几、项目、条件。

就是希望在这组代码下，加入日期的周分组，但是“周分组”在最顶层，而不是最底层的分组。谢谢！

Dim t As Table = Tables("TableA")

Dim g As SubtotalGroup

t.SubtotalGroups.Clear()

t.GroupAboveData = True

t.TreeVisible = True

t.SpillNode = True

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "条件"

g.TotalOn = "批号"

g.Caption = "{0} "

t.SubtotalGroups.Add(g)

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "项目"

g.TotalOn = ""

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "星期"

g.TotalOn = ""

g.Caption = "【周{0}】"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i, True)

If r.IsGroup Then

Dim xm As String

Select Case r.Level

Case 0

r("条件") = r("实验ID")

r("实验ID") = Nothing

Case 1

r("条件") = r("实验ID")

r("实验ID") = Nothing

Case 2

r("实验ID") = r("实验ID") & " ： " & r("批号") & "批"

r("批号") = Nothing

End Select

End If

t.Grid.Tree.Show(2)

加载的数据经常是跨月的，所以希望在某一周内（最顶层），按照 “星期几、项目、条件” 的顺序依次向下分组。

老师，现在的问题跟 “星期”无关，星期列，只是周几DayOfWeek，字符列。

我的问题是 “日期”列，Date, 如果把 “日期” 列加入到分组中，按周Week分组（如下），然后这个分组放在最后，也就是分组的最顶层，而不是放在最前面。

当我把如下code放在最后时，会报错“汇总模式的日期分组必须作为第一个分组”，但是如果放在最前面，日期分组就成了最底层的分组。我需要的是每周下的其他汇总分组。

g = New SubtotalGroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "日期"

g.TotalOn = ""

g.Caption = "{0} 周"

t.SubtotalGroups.Add(g)

主题：汇总模式 如何将日期放在最后分组？

主题：汇总模式如何将日期放在最后分组？