以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选后怎么累计求和  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11003)

--  作者:wzlnx
--  发布时间:2011/7/4 10:22:00
--  筛选后怎么累计求和
我做了个表,均按需要筛选出了有用的行,现在想在页面下方或者另起一列统计筛选出的金额列,请大家帮帮忙啊 谢谢了  本人是新手 希望能说详细点 谢谢!!
--  作者:狐狸爸爸
--  发布时间:2011/7/4 10:26:00
--  

看看汇总模式,从这一节开始:

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

 


--  作者:wzlnx
--  发布时间:2011/7/4 10:39:00
--  
我在命令窗口中输入代码:
Dim Sum As Double
Sum = Tables("订单").Compute("Sum(金额)")
Output.Show(Sum)

计算结果是我需要的 但是怎么才能把结果填写在订单表中指定的位置呢?



--  作者:狐狸爸爸
--  发布时间:2011/7/4 10:44:00
--  

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()


--  作者:wzlnx
--  发布时间:2011/7/4 10:54:00
--  
谢谢狐狸爸爸,  用汇总模式有点不好的是合计的那一行不会一直存在,重新筛选数据后就消失了 有要重新汇总,

上面的代码要怎么使用啊?放在什么事件里面呢?谢谢

--  作者:狐狸爸爸
--  发布时间:2011/7/4 11:04:00
--  

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

 


--  作者:wzlnx
--  发布时间:2011/7/4 11:19:00
--  
谢谢狐狸爸爸,貌似可以了。

要是我想把总金额引用到票据窗口  要怎么操作呢 谢谢

--  作者:狐狸爸爸
--  发布时间:2011/7/4 11:25:00
--  
Dim Sum As Double
Sum = Tables("订单").Compute("Sum(金额)")

’设置控件的值等于Sum

 


--  作者:wzlnx
--  发布时间:2011/7/4 13:18:00
--  
Dim Sum As Double Sum = Tables("订单").Compute("Sum(金额)") ’设置控件的值等于Sum 老大 这段代码要放在什么地方啊? 小弟初学不懂啊 请指教 谢谢
--  作者:狐狸爸爸
--  发布时间:2011/7/4 14:24:00
--  

一样在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