Foxtable(狐表)用户栏目专家坐堂 → 怎样篡改,有多个分组的,分组行数据


  共有3376人关注过本帖树形打印复制链接

主题:怎样篡改,有多个分组的,分组行数据

帅哥哟,离线,有人找我吗?
淡月斜阳
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
怎样篡改,有多个分组的,分组行数据  发帖心情 Post By:2023/6/16 15:12:00 [显示全部帖子]

如图所示,有三级分组
性别,类型,组号,
数据结构为:性别(){ 多个类型 {多个组号
需要篡改,每一级的 汇总结果
求平均值,最大值,最小值,和标准方差

如性别的汇总行 ,求,所有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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2023/6/16 15:12:00 [显示全部帖子]

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 

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2023/6/16 15:29:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:aa.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2023/6/16 15:32:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:aa.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2023/6/16 15:33:00 [显示全部帖子]

目前,只会做到一个分组
图片点击可在新窗口打开查看此主题相关图片如下:bb.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
淡月斜阳
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:223 积分:1960 威望:0 精华:0 注册:2015/4/8 8:18:00
  发帖心情 Post By:2023/6/16 15:42:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:汇总.foxdb


 回到顶部