[求助]生成固定统计表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]生成固定统计表

共有2702人关注过本帖树形打印复制链接主题：[求助]生成固定统计表

zcgmxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00

[求助]生成固定统计表 发帖心情

Post By：2016/10/8 22:22:00 [只看该作者]

老师，例子中暴露分级有 Ⅰ、Ⅱ、Ⅲ、Ⅳ 四个选项，有时可能全是其中某一个选项，

Dim g As New CrossTableBuilder("统计表2", DataTables("鼎城区狂犬病暴露门诊登记表"))
g.HGroups.AddDef("县区")
g.VGroups.AddDef("暴露分级", "暴露分级_{0}") 统计生成的列根据输入的值不同是动态的，有时可能只有一列，有时可能有四列。
g.Totals.AddDef("暴露分级", AggregateEnum.Count, "暴露分级")
g.Build()
MainTable = Tables("统计表2")

如何能生成如汇总表那样的固定的统计表，或者将各种可能的统计结果导出到像汇总表那样固定格式的excel 表。排序不能乱。能力有限，花了两天时间搞不定，请指点，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2016/10/9 8:09:33编辑过]

zcgmxf

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2016/10/9 8:08:00 [只看该作者]

哪位大师帮忙指点指点，谢谢了！

zcgmxf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2016/10/9 9:17:00 [只看该作者]

各位大师，是不是问题很简单啊？怎么没人理我呢？图片点击可在新窗口打开查看

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112362 积分：572066 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/9 10:08:00 [只看该作者]

Dim g As New CrossTableBuilder("统计表2", DataTables("鼎城区狂犬病暴露门诊登记表"))

g.HGroups.AddDef("县区")

g.VGroups.AddDef("暴露分级", "暴露分级_{0}") '统计生成的列根据输入的值不同是动态的,有时可能只有一列,有时可能有四列.

g.Totals.AddDef("暴露分级", AggregateEnum.Count, "暴露分级")

g.Build()

MainTable = Tables("统计表2")

Dim dict As new Dictionary(of String,Integer)

dict.Add("Ⅰ",-1)

dict.Add("Ⅱ",-1)

dict.Add("Ⅲ",-1)

dict.Add("Ⅳ",-1)

For Each c As Col In Tables("统计表2").Cols

If c.Name.StartsWith("暴露分级_") Then

dict(c.Caption.Split("_")(1)) = c.Index

End If

For Each key As String In dict.Keys

If dict(key) = -1 Then

DataTables("统计表2").DataCols.Add("暴露分级_" & key,Gettype(Integer))

End If

Dim idx As Integer = 1

For Each c As Col In Tables("统计表2").Cols

Select Case c.Caption

Case "暴露分级_Ⅰ"

c.Move(1)

Case "暴露分级_Ⅱ"

c.Move(2)

Case "暴露分级_Ⅲ"

c.Move(3)

Case "暴露分级_Ⅳ"

c.Move(4)

End Select

zcgmxf

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2016/10/9 22:31:00 [只看该作者]

有点蓝老师，这个汇总表是比较难，汇总表格式在例子里。差不多了，但统计数据时还有点问题，请您看看。谢谢

填表说明:

填表说明:
1. 性别：1=男、2=女；
4.暴露分级：Ⅰ级、Ⅱ级、Ⅲ级
5.伤口自行处理、门诊伤口处理：1=是、2=否；
6.被动免疫制剂：1=免疫球蛋白、2=抗血清、3=否；使用抗血清或免疫球蛋白人数 = 1 + 2
7.全程免疫：1=全程接种人数、2=未全程接种人数、3=未接种人数；
9.伤人动物名称：1=犬、2=猫、3=鼠、4=其他；
10.伤人动物类别：1=疯动物、2=可疑疯动物、3=正常，4=不知道；