标题：SQLTABLE 如何设置汇总

1楼

狐哥发表于：2009/9/10 15:45:00

Dim g As New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "进出"
g.TotalOn = "合计"
g.Caption = "{0} 小计"
with Tables("fa piao登记_Table1")
    .Fill("Select 进出,fa piao号,客户,开piao日期,币种,金额,合计,说明1 From {fa piao开具} where 开piao日期 >= #" & Vars("起始日期") & "# and 开piao日期 <= #" & Vars("结束日期") & "# and 进出 = '开进'","myacc",true)
    .Sort = "开piao日期"
    .SubtotalGroups.Clear() '清除原有的分组
    .SubtotalGroups.Add(g) '加入刚刚定义的分组
end with

请问上面如何修改，Table没有汇总！

2楼

yangming 发表于：2009/9/10 15:56:00

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

Dim t As Table = Tables("fa piao登记_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编辑过]

3楼

狐哥发表于：2009/9/10 16:04:00

可以了，这是为何，还要触发一下吗。

4楼

yangming 发表于：2009/9/10 16:48:00

等于是给表做汇总模式,呵

共4 条记录, 每页显示 10 条, 页签: [1]