表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