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
加好友 
发短信
Post By：2023/6/16 15:12:00 [只看该作者]
此主题相关图片如下：aa.png
