主题：交叉统计的汇总数据不对

我把截图复制在WORD文档了，可是不让上传啊

 

直接上传图片就行，图片太大的话，可以压缩成zip上或rar传

此主题相关图片如下：无标题.gif

哪里不对,有什么不对?

看到了吗

 

看到图了.请问哪里不对,有什么不对

小计，合计都不对啊

 

贴出你的统计代码。

提问要有系统性，尽量一次描述清楚，不能总是一点点地挤

Dim g As New CrossTableBuilder("统计表1", DataTables("管场异常登记"))
g.HGroups.AddDef("管理部")
g.HGroups.AddDef("场站")
g.VGroups.AddDef("类别")
g.Totals.AddDef("类别", AggregateEnum.Count, "类别")
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.Build()
MainTable = Tables("统计表1")

这个是foxtable的问题，因为你统计的是记录数，生成汇总模式的时候，也是统计记录数。

 

只能用代码生成汇总模式了：

 

Dim g As New CrossTableBuilder("统计表1", DataTables("管场异常登记"))
g.HGroups.AddDef("管理部")
g.HGroups.AddDef("场站")
g.VGroups.AddDef("类别")
g.Totals.AddDef("类别", AggregateEnum.Count)
g.OrderByTotal = True
g.HorizontalTotal = True
g.Build()
MainTable = Tables("统计表1") 

Dim t As Table = Tables("统计表1")
Dim b As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

Dim nms As String
For  Each c As Col In Tables("统计表1").Cols
    If c.IsNumeric Then
        nms = nms & ","  & c.name
    End If
Next
nms = nms.trim(",")

b = New Subtotalgroup
b.Aggregate = AggregateEnum.Sum
b.GroupOn = "管理部"
b.TotalOn = nms
b.Caption = "{0} 小计"
t.SubtotalGroups.Add(b)

b = New Subtotalgroup
b.Aggregate = AggregateEnum.Sum
b.GroupOn = "*"
b.TotalOn = nms
b.Caption = "总计"
t.SubtotalGroups.Add(b)

t.Subtotal()