- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助。数据统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13124)
-- 发布时间：2011/9/28 16:21:00
-- 求助。数据统计
如附件。跳过查询表（感觉这个查询表太繁杂了）。用代码，直接交叉统计。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2011/9/28 16:32:00
--
http://www.foxtable.com/help/topics/1627.htm
http://www.foxtable.com/help/topics/2317.htm
-- 发布时间：2011/9/28 19:02:00
-- 狐狸爸爸帮忙做一下吧
狐狸爸爸帮忙做一下吧。你回复我后。帮助看到现在。还是没搞清楚。
-- 发布时间：2011/9/28 20:19:00
-- 那位高手帮帮忙吧
那位高手帮帮忙吧。
-- 发布时间：2011/9/28 23:11:00
--
为何有现成的不用呢？ 怪侠一个呀。 实在是想要的话，搜索一下吧，记得以前有人做过。
-- 发布时间：2011/9/29 8:51:00
--
直接在命令窗口执行下面的代码:
Dim g As New SQLCrossTableBuilder("统计表1", "表A")
g.AddTable("表A","编号","项目","编号")
g.HGroups.AddDef("{表A}.编号")
g.HGroups.AddDef("第二列")
g.HGroups.AddDef("第三列")
g.HGroups.AddDef("第四列")
g.HGroups.AddDef("第五列")
g.HGroups.AddDef("第六列")
g.VGroups.AddDef("xm")
g.Totals.AddDef("数量", AggregateEnum.Count)
g.Build()
MainTable = Tables("统计表1")