AfterFilter
筛选数据之后执行,也就是Table的Filter属性发生变化后执行。
e参数:
Table: 返回触发事件的Table
示例
假定希望每次在订单表筛选数据后,都能自动生成汇总模式,加上汇总行,对数量和金额进行汇总。
为此可将此表的AfterFilter事件代码设置为:
Dim
t As
Table = Tables("订单")
Dim
g As
Subtotalgroup
t.SubtotalGroups.Clear()
g =
New Subtotalgroup
g.GroupOn
= "*"
g.TotalOn
= "数量,金额"
t.SubtotalGroups.Add(g)
t.Subtotal()
关于汇总模式,后面的章节会详细介绍。