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,定期余额)")