以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22071)

--  作者:祁阳
--  发布时间:2012/8/1 18:08:00
--  [求助]

表1内有\'\'男方病史\'\',\'\'女方病史\'\',"男方生殖系统检查","女方生殖系统检查"等列

下面为一统计表的代码,只统计了“男方病史”这一项

\'\'\'
Dim g As New CrossTableBuilder("统计表1", DataTables("表1"))
g.HGroups.AddDef("男方病史")
g.VGroups.AddDef("填写日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("填写日期", "{0}月")
g.Totals.AddDef("编号",AggregateEnum.Count, "编号")
g.OrderByTotal = True
g.VerticalTotal= True
g.HorizontalTotal = True
g.Build()
Tables("统计表1").ShowCell(0,0)
Tables("统计表1").AutoSizeCols(20)
MainTable = Tables("统计表1")

生成结果如下

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

但如果还有需要同时显示其它的检查(女方病史,男方生殖系统检查,女方生殖系统检查等)统计结果在同一统计表上,大约形成如下图结果,能够实现吗。

 
图片点击可在新窗口打开查看此主题相关图片如下:多个统计结果到一个表内.png
图片点击可在新窗口打开查看

表结构大致如下图

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

[此贴子已经被作者于2012-8-2 17:03:15编辑过]

--  作者:祁阳
--  发布时间:2012/8/1 18:09:00
--  

--  作者:祁阳
--  发布时间:2012/8/1 18:10:00
--  

图片点击可在新窗口打开查看


--  作者:mr725
--  发布时间:2012/8/1 20:53:00
--  
 
图片点击可在新窗口打开查看   要上传附件才能看到图片···