主题：筛选后怎么累计求和

我做了个表，均按需要筛选出了有用的行，现在想在页面下方或者另起一列统计筛选出的金额列，请大家帮帮忙啊 谢谢了  本人是新手 希望能说详细点 谢谢！！

看看汇总模式，从这一节开始：

http://help.foxtable.com/topics/0145.htm

 

Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

http://help.foxtable.com/topics/2060.htm

 

谢谢狐狸爸爸，貌似可以了。

’设置控件的值等于Sum

 

Dim Sum As Double Sum = Tables("订单").Compute("Sum(金额)") ’设置控件的值等于Sum 老大 这段代码要放在什么地方啊？ 小弟初学不懂啊 请指教 谢谢

一样在AfterFilter事件中：

 

Dim t As Table = Tables("订单")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

Dim Sum As Double Sum = Tables("订单").Compute("Sum(金额)")

If Forms("窗口名").Opened Then

    Forms("窗口名").Controls("控件名").Value = Sum

End if