标题：关于统计方法疑问
各位高手，请教
1. 汇总模式后能否再生成合并格式？
2.自定义汇总模式后的汇总行内容一行容不下，如何处理？
1、先设置合并模式，然后再汇总。
2、foxtable没有设置某行高度的命令，所以应该是没办法的。
1、先设置合并模式，然后再汇总。
2、foxtable没有设置某行高度的命令，所以应该是没办法的。
第一项失败
看看我的：
此主题相关图片如下：21.gif
老大，我的
第一列是时间列
如果是时间分组，是不能合并的，值相同才能合并
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目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
可是结果不是我想要的
为什么是每行都分组呢，而不是每日分组呢
g.DateGroup = DateGroupEnum.None
改为：
g.DateGroup = DateGroupEnum.Day