怎样篡改，有多个分组的，分组行数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如图所示，有三级分组
性别，类型，组号，

数据结构为：性别（）{ 多个类型 {多个组号
需要篡改，每一级的汇总结果

求平均值，最大值，最小值，和标准方差

如性别的汇总行，求，所有sex=r("sex")

类型，sex= r("sex") and type=r("type")

组，sex= r("sex") and type=r("type") and gorup_num=r("group_num")

问题是：在类型的分组行上，找不到性别

此主题相关图片如下：aa.png

Dim tb As Table = Forms("bweight").Controls("TbS").Table

Dim g As SubtotalGroup

tb.SubtotalGroups.Clear

g = New SubtotalGroup

g.GroupOn = "group_num"

g.Aggregate = AggregateEnum.Average

g.Caption = "{0}"

g.TotalOn = "weight"

tb.SubtotalGroups.Add(g)

g = New SubtotalGroup

g.GroupOn = "type"

g.Aggregate = AggregateEnum.Average

g.TotalOn = "weight"

g.Caption = "{0}："

tb.SubtotalGroups.Add(g)

g = New SubtotalGroup

g.GroupOn = "sex"

g.Aggregate = AggregateEnum.Average

g.Caption = "{0}"

g.TotalOn = "weight"

tb.SubtotalGroups.Add(g)

tb.Subtotal

''篡改汇总数据

'Dim r As Row

'For i As Integer = 0 To tb.Rows.Count(True) - 1

' r = tb.Rows(i, True)

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

' Dim f As String = ""

' Dim v As String = ""

' Select Case r.Level

' Case 0

' f = "sex='" & r("sex") & "'" & ";"

' v = "称重只数：" & tb.Compute("count(weight)", f) & ";"

' v &= "平均体重：" & tb.Compute("Avg(weight)", f) & ";"

' r("sex") = r("sex") & "鸡-" & v

' Case 1

' Case 2

' End Select

' End If

'Next

此主题相关图片如下：aa.png

目前，只会做到一个分组
图片点击可在新窗口打开查看

此主题相关图片如下：bb.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:汇总.foxdb

主题：怎样篡改，有多个分组的，分组行数据