Tables("主窗口_table1").Filter="项目名称<>'小计' and 项目名称<>'合计' and 选中基本=1"
Dim t As Table = Tables("主窗口_table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup
g.GroupOn = "父项目" '分组列为客户列
g.TotalOn = "基本支出年初预算,基本支出预算调整合计,基本支出调整后合计,基本支出转列支拨款合计,基本支出支出数合计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = "基本支出年初预算,基本支出预算调整合计,基本支出调整后合计,基本支出转列支拨款合计,基本支出支出数合计"
t.SubtotalGroups.Add(g)
t.Sort = "列号,父项目" '指定排序字段
t.Subtotal(True) '生成汇总模式
Dim r As Row
For i As Integer =0 To t.Rows.Count(True)-1
r=t.Rows(i,True)
r("基本支出预算请拨率") =r("基本支出转列支拨款合计")/r("基本支出调整后合计")
r("基本支出预算支出率") =r("基本支出支出数合计")/r("基本支出调整后合计")
r("基本支出请拨支出率") =r("基本支出转列支拨款合计")/r("基本支出转列支拨款合计")
If r.IsGroup
r("基本支出预算请拨率") =r("基本支出转列支拨款合计")/r("基本支出调整后合计")
r("基本支出预算支出率") =r("基本支出支出数合计")/r("基本支出调整后合计")
r("基本支出请拨支出率") =r("基本支出转列支拨款合计")/r("基本支出转列支拨款合计")
End If
Next
这样小计的分组会计算，但总计行不会计算
加好友 
发短信
Post By：2020/12/15 11:29:00 [只看该作者]
此主题相关图片如下：qq截图20201215140535.png
