主题：关于统计方法疑问

各位高手，请教

1. 汇总模式后能否再生成合并格式？

2.自定义汇总模式后的汇总行内容一行容不下，如何处理？

第一项失败

老大，我的

第一列是时间列

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

点击浏览该文件:管理项目15.table

老大请看附件，帮忙分析一下：希望点击合并按钮后，每天最后一行增加一个汇总行，显示每日订单数，销售额，产值额，以及不同订单订购的总数量，不知如何实现

 

合并代码：

With Tables("sop")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("排产日期")
    .MergeCols.Add("部门")
    .MergeCols.Add("班组")
    .MergeSort = "排产日期,部门,班组"
    .AllowMerge = True
End With

然后点击汇总代码：

Dim t As Table = Tables("sop")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "排产日期"
g.DateGroup = DateGroupEnum.None
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 '如果是分组行
        Dim f As String = "排产日期 = '" & r("排产日期") & "'"
        Dim v As String = " 订单数:" & t.Compute("Count(订单编号)",f)
        r("排产日期") = "当日提示:" & r("排产日期") & v
    End If
Next

 

可是结果不是我想要的

为什么是每行都分组呢，而不是每日分组呢

此主题相关图片如下：screenshot.jpg

老大，报错了

多谢老大，我研究下