合并后统计的代码如下，为何不是完全合并呢，请看图片的部门为什么有不完全合并的情况呢，第二列的0148就是部门代码？
此主题相关图片如下：screenshot.jpg

\'以下为合并后统计结果显示代码

With Tables("sos")

    .MergeMode = MergeModeEnum.Standard

    .MergeCols.Clear()

    .MergeCols.Add("排产日期")

    .MergeCols.Add("部门")

    .MergeCols.Add("班组")

    .MergeCols.Add("订单编号")

    .MergeSort = "排产日期,部门,班组,订单编号"

    .AllowMerge = True

End With

Dim t As Table = Tables("sos")

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.day

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

Dim r1 As Row

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

    r = t.Rows(i,True)

    r1 = t.Rows(i-1,True)

    If r.IsGroup \'如果是分组行

        Dim f As String = "排产日期 = #" & r1("排产日期") & "#"

        Dim x1 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'分类一\'"

        Dim x2 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'分类二\'"

        Dim x3 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'分类三\'"

        Dim x4 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'\'分类四"

        Dim x5 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'\'分类五"

        Dim x6 As String = "排产日期 = #" & r1("排产日期") & "# and 大类 = \'\'分类六"

        Dim v As String =  "销售金额:" & t.Compute("Sum(销售)",f)

        v = v & " /产值:" & t.Compute("Sum(产值)",f)

        v = v & "/分类一:" & t.Compute("Sum(约当量)",x1)

        v = v & "/分类二:" & t.Compute("Sum(约当量)",x2)

        v = v & "/分类三:" & t.Compute("Sum(约当量)",x3)

        v = v & "/分类四:" & t.Compute("Sum(约当量)",x4)

        v = v & "/分类无:" & t.Compute("Sum(约当量)",x5)

        v = v & "/分类六:" & t.Compute("Sum(约当量)",x6)

        r("排产日期") = format(r1("排产日期"),"yyyy年MM月dd日") & "排产信息提示:" & v

        Tables("sos").AutoSizeRow(i)

    End If

Next

g.DateGroup = DateGroupEnum.day

 

改为：

 

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=8941&page=2