主题：分组统计问题

在“分组统计”中我要把‘政治面貌’列中的：群众、团员、预备党员、中共党员的信息统计，但附件的设置方法不对，请问如何正确设置？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分组统计问题.rar

此主题相关图片如下：截图20.png


此主题相关图片如下：截图19.png

这种只能编码统计了：

 

http://www.foxtable.com/help/topics/0681.htm

 

狐爸：如果设置一个按键，进行一键统计，这个按键代码应该如何编写呢？

看看这里的示例四和示例五：

 

http://www.foxtable.com/help/topics/0681.htm

狐爸：我需要把[政治面貌]列里面的四种状态（群众、团员、预备党员、中共党员）进行分列统计，不知怎样参考示例，我的水平还很低。请多指教。

狐爸：能否在分组统计时增加一个列条件设置呢？（现在只有表条件设置），如果有列条件设置，就好办了。

现在也可以采取一个折中的办法，就是把[政治面貌]列中的四种状态分别复制到四个空列中，然后再统计这四个列中的记录数。例如，把[政治面貌]列中的‘预备党员’复制到[政治面貌1]列中，....... 但把[政治面貌]列中的‘预备党员’复制到[政治面貌1]列中的代码如何写呢?请教高手了！

 这样去统计，剩下的自己弄一下就行了，只是写筛选条件。代码在 项目属性 那里

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

谢谢林老师！我觉得在分组统计中增加列条件设置很有必要，比如说统计[专业职称]列中的教授人数、副教授人数、讲师人数、高级工程师人数等。还有[民族]列中的汉族人数、土家族人数、满族人数等，这样的统计需求比统计最大值、最小值、平均值的需求要大。请狐爸考虑一下。

 加后面几句代码就行了。

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