以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLTABLE 如何设置汇总  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4300)
--  作者：狐哥
--  发布时间：2009/9/10 15:45:00
--  SQLTABLE 如何设置汇总
Dim g As New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "进出"
g.TotalOn = "合计"
g.Caption = "{0} 小计"
with Tables("发票登记_Table1")
    .Fill("Select 进出,发票号,客户,开票日期,币种,金额,合计,说明1 From {发票开具} where 开票日期 >= #" & Vars("起始日期") & "# and 开票日期 <= #" & Vars("结束日期") & "# and 进出 = \'开进\'","myacc",true)
    .Sort = "开票日期"
    .SubtotalGroups.Clear() \'清除原有的分组
    .SubtotalGroups.Add(g) \'加入刚刚定义的分组
end with

请问上面如何修改，Table没有汇总！
--  作者：yangming
--  发布时间：2009/9/10 15:56:00
--  

在代码后面加上汇总模式的代码试试

Dim t As Table = Tables("发票登记_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False

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

t.Subtotal()

[此贴子已经被作者于2009-9-10 15:56:40编辑过]
--  作者：狐哥
--  发布时间：2009/9/10 16:04:00
--  
可以了，这是为何，还要触发一下吗。
--  作者：yangming
--  发布时间：2009/9/10 16:48:00
--  
等于是给表做汇总模式,呵