以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在TopicLinkClick里嵌入数据统计汇总的代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15474)
--  作者：sinlang5778
--  发布时间：2011/12/27 17:43:00
--  如何在TopicLinkClick里嵌入数据统计汇总的代码？
Dim t As Table = Tables("配件销售出库明细")
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 = "总计"
g.upto = True
t.SubtotalGroups.Add(g)

t.Subtotal()
 

上面代码怎么嵌入到  按订单销售出库表
 
Select Case e.link.text
    Case "录入配件出库单"  
        Forms("录入配件销售出库单").Open()  \'打开窗口的方法
    Case "配件出库表"
        MainTable = Tables("配件销售出库单")  \'打开相应的表的方法
    Case "按订单销售出库表"

End Select
[此贴子已经被作者于2011-12-27 17:44:05编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/12/27 17:51:00
--  

加一个任务，名称为“统计什么什么”。

 

 

Select Case e.link.text
    Case "录入配件出库单"
        Forms("录入配件销售出库单").Open()  \'打开窗口的方法
    Case "配件出库表"
        MainTable = Tables("配件销售出库单")  \'打开相应的表的方法
    Case "统计什么什么"
        Dim t As Table = Tables("配件销售出库明细")
        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 = "总计"
        g.upto = True
        t.SubtotalGroups.Add(g)
        t.Subtotal()
End Select

 

 

 

 

 

 


 
--  作者：唐尸三摆手
--  发布时间：2011/12/27 17:52:00
--  
Select Case e.link.text
    Case "录入配件出库单"  
        Forms("录入配件销售出库单").Open()  \'打开窗口的方法
    Case "配件出库表"
        MainTable = Tables("配件销售出库单")  \'打开相应的表的方法
    Case "按订单销售出库表"
\'此处写代码就行
Dim t As Table = Tables("配件销售出库明细")
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 = "总计"
g.upto = True
t.SubtotalGroups.Add(g)
t.Subtotal()
\'代码结束
End Select