以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体中的table问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27335)
--  作者：灵狐
--  发布时间：2012/12/28 19:40:00
--  窗体中的table问题
窗体中的table是否可以设置汇总模式？
--  作者：lin_hailun
--  发布时间：2012/12/28 21:37:00
--  
 可以，具体什么问题？
--  作者：灵狐
--  发布时间：2012/12/28 21:55:00
--  

汇总模式生成的代码如何在窗口中table起作用?
--  作者：sunbrain
--  发布时间：2012/12/28 22:02:00
--  
写在窗口afterload中，注意区分是不是副本表
--  作者：灵狐
--  发布时间：2012/12/29 7:57:00
--  

如果表未设置汇总模式，代码放到窗口不起任何作用。
--  作者：lin_hailun
--  发布时间：2012/12/29 9:06:00
--  
以下是引用灵狐在2012-12-29 7:57:00的发言：

如果表未设置汇总模式，代码放到窗口不起任何作用。


应该不会的，你做一个简单是例子发上来看看。
--  作者：灵狐
--  发布时间：2012/12/29 12:46:00
--  

afterload事件代码：

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

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

 
--  作者：lin_hailun
--  发布时间：2012/12/29 13:24:00
--  
 代码还欠一句。再有，表A肯定是汇总了的。再看看的是否把窗口控件设置成了副本。

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
--  作者：38585830
--  发布时间：2012/12/29 14:20:00
--  
以下是引用灵狐在2012-12-29 12:46:00的发言：

afterload事件代码：

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

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

 

表A应该把这个改为窗口中的表名称吧
--  作者：灵狐
--  发布时间：2012/12/29 16:23:00
--  

ok