以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并多个组合统计结果,合计行跑到中间了,该怎么调整到最后一行啊。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157588)

--  作者:guosheng
--  发布时间:2020/10/21 17:22:00
--  合并多个组合统计结果,合计行跑到中间了,该怎么调整到最后一行啊。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20201021172117.png
图片点击可在新窗口打开查看

Dim bd11 As New sqlGroupTableBuilder("统计表2","现金余额表")
bd11.C
Dim dt11 As fxDataSource
bd11.Groups.AddDef("公司缩写") \'根据型号分组
bd11.Groups.AddDef("银行账户") \'根据型号分组
bd11.Totals.AddDef("余额") \'对金额进行统计
bd11.VerticalTotal = True

dt11 = bd11.BuildDataSource()

Dim bd21 As New sqlGroupTableBuilder("统计表21","资金冻结情况表")
bd21.C
bd21.filter="类别=\'日提\'"
Dim dt21 As fxDataSource
bd21.Groups.AddDef("公司缩写") \'根据型号分组
bd21.Groups.AddDef("银行账户") \'根据型号分组
bd21.Totals.AddExp("日提余额","isnull(申购金额,0)-isnull(赎回本金,0)") \'对金额进行统计
bd21.VerticalTotal = True
dt21 = bd21.BuildDataSource()


Dim str11 As String = DataTables("资金冻结情况表").sqlGetcomboliststring("编号","类别=\'滚动\' and 申购金额>0 and 结束确认人 is null").replace("|","\',\'")
Dim bd31 As New sqlGroupTableBuilder("统计表22","资金冻结情况表")
bd31.C
Dim dt31 As fxDataSource
bd31.filter= "编号 In (\'" & str11 & "\')"
bd31.Groups.AddDef("公司缩写") \'根据型号分组
bd31.Groups.AddDef("银行账户") \'根据型号分组
bd31.Totals.AddExp("滚动余额","isnull(申购金额,0)-isnull(赎回本金,0)") \'对金额进行统计
bd31.VerticalTotal = True
dt31 = bd31.BuildDataSource()

Dim str12 As String = DataTables("资金冻结情况表").sqlGetcomboliststring("编号","类别=\'定期\' and 申购金额>0 and 结束确认人 is null").replace("|","\',\'")
Dim bd41 As New sqlGroupTableBuilder("统计表23","资金冻结情况表")
bd41.C
Dim dt41 As fxDataSource
bd41.filter= "编号 In (\'" & str12 & "\')"
bd41.Groups.AddDef("公司缩写") \'根据型号分组
bd41.Groups.AddDef("银行账户") \'根据型号分组
bd41.Totals.AddExp("定期余额","isnull(申购金额,0)-isnull(赎回本金,0)") \'对金额进行统计
bd41.VerticalTotal = True
dt41 = bd41.BuildDataSource()

Dim nms As String() = {"公司缩写","银行账户"} \'指定连接列
dt11.Combine(nms,dt21,nms) \'将销售统计数据组合到进货统计数据
dt11.Combine(nms,dt31,nms) \'将退货统计数据组合到进货统计数据
dt11.Combine(nms,dt41,nms) \'将退货统计数据组合到进货统计数据
dt11.show("统计表2")
DataTables("统计表2").DataCols.Add("合计",Gettype(Double), "iif(余额 is null,0,余额)+iif(日提余额 is null,0,日提余额)+iif(滚动余额 is null,0,滚动余额)+iif(定期余额 is null,0,定期余额)")

--  作者:有点蓝
--  发布时间:2020/10/21 17:38:00
--  
去掉合计设置:bd11.VerticalTotal = True