此主题相关图片如下：qq图片20220830203615.png
With Tables("安费用所属期查询统计_Table1")
Dim g As Subtotalgroup
.SubtotalGroups.Clear()
LockBaseMainForm() '锁定主界面
.StopRedraw()
g = New Subtotalgroup
g.GroupOn = "明细分类"
g.TotalOn = "查询_月租_缴费金额"
.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "月"
g.TotalOn = "查询_月租_缴费金额"
g.Caption = "本月发生额"
.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "月"
g.Caption = "{0}月"
.SubtotalGroups.Add(g)
.Sort = "年,月"
.Subtotal(True)
Dim r As Row
For i As Integer = 0 To .Rows.Count(True) - 1
r = .Rows(i, True)
If r.IsGroup AndAlso r("年") Like "*月" Then'如果是分组行
Dim f As String = "年 = " & .Rows(i - 2, True)("年") & " And 月 <= " & r("年").trim("月")
r("年") = "本年累计"
r("查询_月租_缴费金额") = .Compute("Sum(查询_月租_缴费金额)", f)
End If
Next
.ResumeRedraw()
UnLockBaseMainForm() '解锁主界面
End With
添加明细分组后本年累计无法计算。红色标注是原来的代码。
[此贴子已经被作者于2022/8/30 22:55:54编辑过]
加好友 
发短信
Post By：2022/8/30 22:23:00 [只看该作者]
