以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计表可不可以让“年”和“月”归入一列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90679)

--  作者:meiyi
--  发布时间:2016/9/19 18:58:00
--  交叉统计表可不可以让“年”和“月”归入一列

现在交叉统计表是这样的:

 


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

能不能让“年”和“月”归入一列,比如归入“日期”列,列值:201X年X月,以便基于此表建立图表。


--  作者:有点蓝
--  发布时间:2016/9/19 20:39:00
--  
Dim b As New SQLGroupTableBuilder("统计表1","表A")
b.Groups.AddExp("日期","cstr(年) + \'年\' + cstr(月) + \'月\'")
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表 

MainTable = Tables("统计表1") \'打开生成的统计表

--  作者:meiyi
--  发布时间:2016/9/23 23:58:00
--  

能不能直接生成分组统统计表?

我在详细说一下我的问题,有学生信息表(ID,姓名,性别,入校时间,联系电话……),我想建立一个分组统计表:表C,统计每月入校的学生人数。表C的列有:来校时间(xx年X月),入校人数。其中入校时间格式为“20XX年X月”。请问代码如何写?


--  作者:狐狸爸爸
--  发布时间:2016/9/24 9:00:00
--  
Dim b As New SQLGroupTableBuilder("统计表1","学生信息表")
b.Groups.AddExp("年月","cstr(Year([入校日期])) + \'年\' + cstr(Month([入校日期])) + \'月\'")
b.Totals.AddDef("_Identify",AggregateEnum.Count,"入校人数") \'添加数量列用于统计
b.Build \'生成统计表
 
参考:
 

--  作者:meiyi
--  发布时间:2016/9/24 17:46:00
--  

还是没弄成。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

我想达成的目的,一是生成招生统计表,可以看到每月入校的人数。二是生成图表,以图表的形式看到每月的招生人数。如下图的样子。

 

 


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

 


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

--  作者:狐狸爸爸
--  发布时间:2016/9/24 17:59:00
--  

4楼的代码分明是OK, 你只需改为正确的表名和列名即可:

 

Dim b As New SQLGroupTableBuilder("统计表1","学生信息表")
b.Groups.AddExp("时间","cstr(Year([来校时间])) + \'年\' + cstr(Month([来校时间])) + \'月\'")
b.Totals.AddDef("_Identify",AggregateEnum.Count,"入校人数") \'添加数量列用于统计
MainTable = Tables("统计表1")
b.Build \'生成统计表


--  作者:狐狸爸爸
--  发布时间:2016/9/24 18:06:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目297.table


--  作者:meiyi
--  发布时间:2016/9/24 19:58:00
--  
谢谢老师!解决了。
--  作者:meiyi
--  发布时间:2016/9/25 14:37:00
--  
请问老师,我的那个表是由access外部数据表,通过查询条件生成的查询表。再基于这个查询表进行统计的。所以,代码是不是不一样呢?代码运行提示出错。
--  作者:狐狸爸爸
--  发布时间:2016/9/25 14:49:00
--  

1、代码一样,注意表名和列名正确与否

2、使用我外部数据源,要设置数据源抿成:

Dim b As New SQLGroupTableBuilder("统计表1","学生信息表")
b.ConnectionName = "数据源名称"
b.Groups.AddExp("时间","cstr(Year([来校时间])) + \'年\' + cstr(Month([来校时间])) + \'月\'")
b.Totals.AddDef("_Identify",AggregateEnum.Count,"入校人数") \'添加数量列用于统计
MainTable = Tables("统计表1")
b.Build \'生成统计表