表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编辑过]