以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  逻辑型指段如何进行统计分析  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10604)
--  作者：倪惠明
--  发布时间：2011/6/14 15:13:00
--  逻辑型指段如何进行统计分析
在人员信息管理中，用逻辑型字段来表示男、女，表中有多个单位数据，如果按单位汇总如何在汇总表中汇总出各单位男、女人员人数。请指导！
--  作者：狐狸爸爸
--  发布时间：2011/6/14 15:16:00
--  
做个列表，输入一点数据。
--  作者：倪惠明
--  发布时间：2011/6/14 15:31:00
--  
我想通过人员信息汇总为人员构成统计表的形式，请帮忙！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:教育系统内部审计统计报表.table
--  作者：倪惠明
--  发布时间：2011/6/14 16:00:00
--  
狐狸爸爸帮忙看看！谢谢！
--  作者：狐狸爸爸
--  发布时间：2011/6/14 16:26:00
--  

增加男 女列，代码改为：

 

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("ryxxb")
If e.DataCol.Name = "dwdm" Then
    dr("zzry") = dt.Compute("Count(xm)", "zzf = false And dwdm = \'" & dr("dwdm") & "\'" )
    dr("jzry") = dt.Compute("Count(xm)", "zzf = true And dwdm = \'" & dr("dwdm") & "\'")
    dr("男") = dt.Compute("Count(xm)", "xb = True And dwdm = \'" & dr("dwdm") & "\'")
    dr("女") = dt.Compute("Count(xm)", "xb = False And dwdm = \'" & dr("dwdm") & "\'")
End If

 

 

建议你直接用中文的列名，否则你会头晕，别人更头晕。

 

 

 

[此贴子已经被作者于2011-6-14 16:51:24编辑过]
--  作者：倪惠明
--  发布时间：2011/6/14 16:56:00
--  

谢谢了！