- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分组统计问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26970)
-- 发布时间：2012/12/18 21:07:00
-- 分组统计问题
在“分组统计”中我要把‘政治面貌’列中的：群众、团员、预备党员、中共党员的信息统计，但附件的设置方法不对，请问如何正确设置？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:分组统计问题.rar |
此主题相关图片如下：截图20.png
此主题相关图片如下：截图19.png
-- 发布时间：2012/12/18 21:20:00
--
这种只能编码统计了：
http://www.foxtable.com/help/topics/0681.htm
-- 发布时间：2012/12/18 21:49:00
--
狐爸：如果设置一个按键，进行一键统计，这个按键代码应该如何编写呢？
-- 发布时间：2012/12/18 21:54:00
--
看看这里的示例四和示例五：
http://www.foxtable.com/help/topics/0681.htm
-- 发布时间：2012/12/18 22:01:00
--
狐爸：我需要把[政治面貌]列里面的四种状态（群众、团员、预备党员、中共党员）进行分列统计，不知怎样参考示例，我的水平还很低。请多指教。
-- 发布时间：2012/12/18 22:05:00
--
狐爸：能否在分组统计时增加一个列条件设置呢？（现在只有表条件设置），如果有列条件设置，就好办了。
-- 发布时间：2012/12/18 23:04:00
--
现在也可以采取一个折中的办法，就是把[政治面貌]列中的四种状态分别复制到四个空列中，然后再统计这四个列中的记录数。例如，把[政治面貌]列中的‘预备党员’复制到[政治面貌1]列中，....... 但把[政治面貌]列中的‘预备党员’复制到[政治面貌1]列中的代码如何写呢?请教高手了！
-- 发布时间：2012/12/19 14:48:00
--
这样去统计，剩下的自己弄一下就行了，只是写筛选条件。代码在 项目属性 那里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/12/19 20:09:00
--
谢谢林老师！我觉得在分组统计中增加列条件设置很有必要，比如说统计[专业职称]列中的教授人数、副教授人数、讲师人数、高级工程师人数等。还有[民族]列中的汉族人数、土家族人数、满族人数等，这样的统计需求比统计最大值、最小值、平均值的需求要大。请狐爸考虑一下。
-- 发布时间：2012/12/19 21:51:00
--
加后面几句代码就行了。
Select Case MainTable.Name
Case "统计表"
Dim dt As DataTable = DataTables("学生基本信息表")
MainTable.DataTable.DataRows.Clear
For Each c As String In dt.GetUniqueValues("", "班级")
Dim nr As Row = MainTable.AddNew
nr("班级") = c
nr("人数") = dt.Compute("Count(_Identify)", "班级 = \'" & c & "\'")
nr("群众人数") = dt.Compute("Count(_Identify)", "班级 = \'" & c & "\' And 政治面貌 = \'群众\'")
nr("预备党员人数") = dt.Compute("Count(_Identify)", "班级 = \'" & c & "\' And 政治面貌 = \'预备党员\'")
Next
Dim r As Row = MainTable.AddNew
r("班级") = "合计"
For i As Integer = 1 To MainTable.Cols.Count - 1
r(MainTable.Cols(i).Name) = MainTable.Compute("Sum(" & MainTable.Cols(i).Name & ")")
Next
End Select