以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教,代码提示设置了相同的键  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92768)

--  作者:waner
--  发布时间:2016/11/12 12:53:00
--  请教,代码提示设置了相同的键

该如何对这个资产负债表统计汇总呢?

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("资产负债表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("月份") \'根据月份分组
bd1.Groups.AddDef("行次1") \'根据行次1分组
bd1.Groups.AddDef("资产") \'根据资产分组
bd1.Totals.AddDef("期初数","期初数3") \'对期初数进行统计
bd1.Totals.AddDef("期末数","期末数3") \'对期末数进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("资产负债表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("月份") \'根据月份分组
bd2.Groups.AddDef("行次2") \'根据行次2分组
bd2.Groups.AddDef("负债及所有者权益") \'根据负债及所有者权益分组
bd2.Totals.AddDef("期初数1","期初数2") \'对期初数1进行统计
bd2.Totals.AddDef("期末数1","期末数2") \'对期末数1进行统计
dt2 = bd2.BuildDataSource()
Dim nms As String() = {"月份"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'组合资产负债表到统计表1
dt1.Show("统计表1") \'显示统计结果


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161112125211.png
图片点击可在新窗口打开查看

--  作者:y2287958
--  发布时间:2016/11/12 13:09:00
--  
上例子
--  作者:waner
--  发布时间:2016/11/12 13:14:00
--  

比如要合并2015年1月份3个子公司的资产负债表,基表格式就是图片上的,该怎么写代码呢?


--  作者:有点蓝
--  发布时间:2016/11/12 14:26:00
--  
还是做个例子看看吧。没有时间去做你这样的表格和数据去测试代码
--  作者:waner
--  发布时间:2016/11/12 16:13:00
--  

密码:888

麻烦了


--  作者:有点蓝
--  发布时间:2016/11/12 16:16:00
--  
项目呢?http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

有时要上传几次才成功

--  作者:waner
--  发布时间:2016/11/12 16:18:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:财务报表.rar


--  作者:waner
--  发布时间:2016/11/12 16:20:00
--  
可以打开吗?
--  作者:有点蓝
--  发布时间:2016/11/12 16:49:00
--  
这种没有办法组合,Combine必须包含所有的Groups。

说说最后想要怎样的效果

--  作者:waner
--  发布时间:2016/11/12 17:03:00
--  
最后是想做到这个效果,对资产负债表按月份汇总,比如汇总2014年1月份,两个中心的资产负债表