主题：请教汇总模式

老师，我看了开发指南-杂谈中的“自定义汇总”，但是例子中是一层分组，我是三层分组，不会弄了，您帮忙给看看

Dim t As Table = Tables("公司业绩查询窗口_Table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True

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()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "所属公司 = '" & r("所属公司") & "'"
        Dim v As String = " 立项数量:" & t.Compute("Count(项目编号)",f)
        r("项目编号") = "" & r("项目编号") & v
    End If
Next

老师，已将代码上传，执行后的截图在附件中

共三个分组，分别为：立项日期；所属公司；总计，以上代码只实现了对“所属公司”分组的立项数量的统计，但是，对于立项日期和总计实现立项数量的统计，如何设置代码？

判断等级，处理，如

For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        If r.Level = 0 Then
            Dim f As String = "所属公司 = '" & r("所属公司") & "'"
            Dim v As String = " 立项数量:" & t.Compute("Count(项目编号)",f)
            r("项目编号") = "" & r("项目编号") & v
        ElseIf r.level = 1 Then
           
        ElseIf r.level = 2 Then
           
        End If
    End If
Next

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目1.foxdb

老师：共三个分组，分别为：立项日期；所属公司；总计，代码只实现了对“所属公司”分组的立项数量的统计，但是，对于“立项日期”和“总计”实现立项数量的统计，应如何设置代码？

您受累给指导一下

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True

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()

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
       
        If r.Level = -1 Then
            Dim f As String = ""
            Dim v As String = " 总计:" & t.Compute("Count(立项编号)",f)
            r("立项编号") = v
        ElseIf r.level = 0 Then
            Dim f As String = "所属公司 = '" & r("所属公司") & "'"
            Dim v As String = " 立项数量:" & t.Compute("Count(立项编号)",f)
            r("立项编号") = v
        ElseIf r.level = 1 Then
            Dim sum As Double = 0
            For j As Integer = i+1 To t.Rows.count(True)-1
                If t.Rows(j,True).IsGroup Then
                    Exit For
                Else
                    sum += 1
                End If
            Next
            Dim v As String = " 立项数量:" & sum
            r("立项编号") = v
        End If
       
    End If
Next