Foxtable(狐表)用户栏目专家坐堂 → [求助]组合多个统计结果后如何增加汇总行


  共有3359人关注过本帖平板打印复制链接

主题:[求助]组合多个统计结果后如何增加汇总行

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]组合多个统计结果后如何增加汇总行  发帖心情 Post By:2015/2/28 21:59:00 [只看该作者]

代码如下,这段代码执行后我希望有汇总行,并且导出至EXCEL后这个汇总行也存在
Dim bd1 As New SQLGroupTableBuilder("统计表1","销售结算台账")
Dim dt1 As fxDataSource
bd1.C
bd1.Groups.AddDef("公司") '根据公司分组
bd1.Totals.AddDef("结算金额","发货金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","销售收款台账")
Dim dt2 As fxDataSource
bd2.C
bd2.Groups.AddDef("公司") '根据公司分组
bd2.Totals.AddDef("金额","收款金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("公司",dt2,"公司") '将收款数据组合到销售统计数据


Tables("销售款项查询_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("销售款项查询_Table1").DataCols  '用表达式列计算应收款
    .Add("应收款",Gettype(Double), "IsNull([发货金额],0) - ISNULL([收款金额],0)")
End With

我目前用的增加汇总行的代码如下:
With Tables("销售款项查询_Table1")
    .Cols("发货金额").GrandTotal = True '指定要合计的列
    .Cols("收款金额").GrandTotal = True
    .Cols("应收款").GrandTotal = True
    .GrandTotal = True '显示合计模式
End With
这个汇总代码在导出EXCEL后汇总行不会出现,请老师看看如何解决!

 回到顶部