如何用代码修改合计行某个单元格的值？

Captain

如何用代码修改合计行某个单元格的值？比如要把合计行的单价单元格改为平均单价。

admin

Dim tbl As SmGrid=Proj.CurrentSmGrid
Dim description As FooterDescription = tbl.Footers.Descriptions(tbl.Footers.Descriptions.Count - 1)
Dim avg As New AggregateDefinition
avg.PropertyName="单价"
avg.Aggregate=AggregateEnum.Average
description.Aggregates.Add(avg)
复制代码

Captain

admin 发表于 2023-6-6 16:51

这个代码应该不对，执行了合计行就不见了，我只是单纯的想改合计行某个单元格值，比如自己计算好值33.62，把这个33.62赋值单价列的合计行的单元格。

admin

在执行合计行之后执行。其他没有办法赋值。因为会被重新计算。

Captain

admin 发表于 2023-6-12 11:04
在执行合计行之后执行。其他没有办法赋值。因为会被重新计算。

执行合计行之后执行，在哪个事件中写代码

admin

AfterLoaded事件，注意AfterLoaded可能会被重复执行，上面的代码自己要判断一下是否已经执行过。

Captain

如何获取分类汇总的行、列给单元格赋值

admin

你想象的方法对合计行不通的。只有我一开始给你提供的方法可以给合计行赋值。

你要的获取分类汇总的行、列，并进行单元格赋值的方法如下：

Dim tbl As SmGrid=Proj.CurrentSmGrid
'方法一：直接根据单元格来赋值，Node节点也是单元格
tbl(2,"单价")=2
'方法二：根据目录树来访问赋值
Dim nd As Node=tbl.Nodes(1) '先获得第一层第二个节点
nd.Nodes(0).Row("单价")=2.5 '获得这个节点下的第一个子节点来赋
复制代码

Captain

admin 发表于 2023-6-13 21:27
你想象的方法对合计行不通的。只有我一开始给你提供的方法可以给合计行赋值。

你要的获取分类汇总的行、列 ...

遍历节点给分类汇总赋值的方法可行，分类汇总之后的事件是哪一个？试了好多事件都不能执行，要先拿到分类汇总行的值才能去计算然后赋值给分类汇总的单元格

admin

你这想法有问题的，你如果想自己去维护这个统计结果的话，你就得在任何单元格有数据变化的时候把当前列相关分组统计及相应的父级统计结果都要变更。你如果排序有变化了，那么结果还要更新。
分类汇总你试试AfterSubtotal事件吧。