以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉统计统计的结果如果显示在窗口统计中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85296)

--  作者:liu1992
--  发布时间:2016/5/22 17:37:00
--  交叉统计统计的结果如果显示在窗口统计中

http://www.foxtable.com/help/topics/1619.htm

这里的例子,交叉统计的结果是显示在表的,如何“窗口管理中”设计,然后在对应表的“工作窗口”中显示出来?

另外,我想在这里面张表里做两个统计,是否可行?


此主题相关图片如下:微信截图_20160522173414.png
按此在新窗口浏览图片

此主题相关图片如下:微信截图_20160522173454.png
按此在新窗口浏览图片

--  作者:大红袍
--  发布时间:2016/5/22 17:39:00
--  

BuildDataSource

 

http://www.foxtable.com/help/topics/1909.htm

 


--  作者:liu1992
--  发布时间:2016/5/22 18:03:00
--  

“完整月报表”还是在我的“授权细”后面再生成一张表啊,我是这样写的

Dim b As New CrossTableBuilder("完整月报表",DataTables("本期开票"))
b.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b.VGroups.AddDef("所属大楼","本期欠款明细_{0}") \'添加产品列用于垂直分组
b.Totals.AddDef("上期累计欠款") \'添加数量列用于统计
b.Build \'生成统计表
MainTable = Tables("完整月报表") \'打开生成的统计表
Tables("完整月报表").DataSource = b.BuildDataSource()

对吗?


--  作者:大红袍
--  发布时间:2016/5/22 20:20:00
--  
Dim b As New CrossTableBuilder("完整月报表",DataTables("本期开票"))
b.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b.VGroups.AddDef("所属大楼","本期欠款明细_{0}") \'添加产品列用于垂直分组
b.Totals.AddDef("上期累计欠款") \'添加数量列用于统计
Tables("完整月报表").DataSource = b.BuildDataSource()

--  作者:大红袍
--  发布时间:2016/5/22 20:22:00
--  

Dim b As New CrossTableBuilder("完整月报表",DataTables("本期开票"))
b.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b.VGroups.AddDef("所属大楼","本期欠款明细_{0}") \'添加产品列用于垂直分组
b.Totals.AddDef("上期累计欠款") \'添加数量列用于统计

Forms("窗口1").Controls("Table1").Table.DataSource = b.BuildDataSource()


--  作者:liu1992
--  发布时间:2016/5/23 9:46:00
--  

老师,如果我想在这个窗口做三个交叉统计,“本期欠费明细”、“前期欠费明细”、“总计欠费”,但是像下面这样写的话,不能实现,只显示一个“本期欠费明细”统计结果。

Dim b As New CrossTableBuilder("统计表1",DataTables("本期开票"))
b.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b.VGroups.AddDef("所属大楼","本期欠款明细_{0}") \'添加产品列用于垂直分组
b.Totals.AddDef("本期欠款") \'添加数量列用于统计
Forms("完整月报表").Controls("Table1").Table.DataSource = b.BuildDataSource()

 

Dim b2 As New CrossTableBuilder("统计表2",DataTables("本期开票"))
b2.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b2.VGroups.AddDef("所属大楼","前期欠款明细_{0}") \'添加地址列用于垂直分组
b2.Totals.AddDef("上期累计欠款") \'添加数量列用于统计
Forms("完整月报表").Controls("Table1").Table.DataSource = b.BuildDataSource()


Dim b3 As New CrossTableBuilder("统计表3",DataTables("本期开票"))
b3.HGroups.AddDef("承租单位") \'添加客户列用于水平分组
b3.VGroups.AddDef("所属大楼","累计欠款明细_{2}") \'添加产品列用于垂直分组
b3.Totals.AddDef("本期累计欠款") \'添加数量列用于统计
Forms("完整月报表").Controls("Table1").Table.DataSource = b.BuildDataSource()

 

这样写的话,还是只有一个统计结果

 


此主题相关图片如下:微信截图_20160523094506.png
按此在新窗口浏览图片
[此贴子已经被作者于2016/5/23 9:47:27编辑过]

--  作者:大红袍
--  发布时间:2016/5/23 9:48:00
--  

放三个Table控件,修改红色的名字

 

Forms("完整月报表").Controls("Table1").Table.DataSource = b.BuildDataSource()