【自定义汇总模式】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为什么我按照帮助文档中的格式设置自定义汇总模式，不知为什么哪里出错而未出现设计的结果。如下图所示：

此主题相关图片如下：l$x@w5q@r0(ujgjyn0wobf.png

我设计的代码是：

Dim t As Table = Tables("松北所DMA分区统计表")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "管理站"

g.TotalOn = "口径_100,口径_150,口径_200,口径_300,口径_50,口径_80,单路,多路,合计"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "*"

g.TotalOn = "口径_100,口径_150,口径_200,口径_300,口径_50,口径_80,单路,多路,合计"

g.Caption = "总计"

t.SubtotalGroups.Add(g)

t.Sort = "管理站,小区编号" '指定排序字段

t.Subtotal(True) '生成汇总模式

Dim r As Row

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

r = t.Rows(i,True)

If r.IsGroup '如果是分组行

Dim f As String = "管理站 = '" & r("管理站") & "'"

Dim v As String = " DMA小区数:" & t.Compute("Count(小区编号)",f)

v = v & " 考核表数量:" & t.Compute("Sum(合计)",f)

v = v & " 单路数量:" & t.Compute("Sum(单路)",f)

v = v & " 多路数量:" & t.Compute("Sum(多路)",f)

r("管理站") = "管理站:" & r("管理站") & v

End If

统计结果是出来，不知怎么会出现在最上方的三行，而且将原有表格的其中三行数据打乱了。

此主题相关图片如下：剪辑_8.jpg

我找方法了：

Dim r,r1 As Row

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

r = t.Rows(i,True)

If r.IsGroup '如果是分组行

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

Dim f As String = "管理站 = '" & r1("管理站") & "'"

谢谢，在你的提示下，我想到方法了，已经解决了。

二级分组汇总时，又出现问题，希望帮忙老师查找一下问题。就是二级的自定义汇总结果不出来：如下图所示：

此主题相关图片如下：剪辑_16.jpg

我编写的代码是：

Dim t As Table = Tables("松北所DMA分区统计表")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "分块"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "管理站"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

'g = New Subtotalgroup

'g.Aggregate = AggregateEnum.Sum

'g.GroupOn = "*"

'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.Level = 0 Then

If r.IsGroup '如果是分组行

Dim f As String = "管理站 = '" & r("序号") & "'"

Dim v As String = " DMA小区:" & t.Compute("Count(小区编号)",f) & "个"

v = v & " 考核表:" & t.Compute("Sum(合计)",f) & "个"

v = v & " 单路表:" & t.Compute("Sum(单路)",f) & "个"

v = v & " 多路表:" & t.Compute("Sum(多路)",f) & "个"

r("序号") = "管理站:" & r("序号") & v

ElseIf r.Level = 1 Then

Dim pr As Row = t.Rows(r.Index - 1, True)

Dim f As String = "管理站 = '" & pr("管理站") & "' and 分块 = '" & pr("分块") & "'"

Dim v As String = " DMA小区:" & t.Compute("Count(小区编号)",f) & "个"

v = v & " 考核表:" & t.Compute("Sum(合计)",f) & "个"

v = v & " 单路表:" & t.Compute("Sum(单路)",f) & "个"

v = v & " 多路表:" & t.Compute("Sum(多路)",f) & "个"

r("序号") = pr("管理站") & "-" & pr("分块") & ":" & v

End If

OK，看你的链接实例基本理解，好像fo?x?ta?b?leoxtable帮助文档中的多级代码编写有误。非常感谢！

看似简单，编写的代码就是不能显示二级分组的汇总结果。我将实例上传，请老师帮忙检查纠正编写错误。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:考核表统计.table

我想再问个问题：

在上述代码执行后，数据表的序号列和自定义汇总行的序号列都是同时居中对齐或者左对齐。我想设置成：数据表中的序号列是居中对齐，而自定义汇总行的序号列是左对齐方式，请问老师如何设置。

主题：【自定义汇总模式】