Foxtable(狐表)用户栏目专家坐堂 → SQLTABLE 如何设置汇总


  共有15845人关注过本帖树形打印复制链接

主题:SQLTABLE 如何设置汇总

帅哥哟,离线,有人找我吗?
狐哥
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
SQLTABLE 如何设置汇总  发帖心情 Post By: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没有汇总!

 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/9/10 16:04:00 [只看该作者]

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

 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/9/10 16:48:00 [只看该作者]

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

 回到顶部