主题：[求助]筛选后可编辑

 AfterFilter里的代码如下：

Dim t As Table = Tables("档案表")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "*"
g.TotalOn = "销售单价,成本单价"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() 

如何实现筛选后表仍然可以编辑

此主题相关图片如下：1111.png