专家坐堂-只想数出整个个班级中出勤为是的人数，代码要如何改？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  只想数出整个个班级中出勤为是的人数，代码要如何改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130425)

--  作者：18651810926
--  发布时间：2019/1/21 18:28:00
--  只想数出整个个班级中出勤为是的人数，代码要如何改？

Select e.DataCol.name
Case "出勤","实训人数"
Dim dr As DataRow=DataTables("班级资料").find("班级名称= \'" & e.DataRow("班级名称") & "\'")
If dr IsNot Nothing Then
dr("实训人数")=e.DataTable.Compute("Count(出勤)","班级名称=\'" & e.DataRow("班级名称") & "\'")
End If
End Select

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

[此贴子已经被作者于2019/1/21 18:28:49编辑过]

--  作者：18651810926
--  发布时间：2019/1/21 18:46:00
--
还有一个就是如何对非数据列进行统计，比如男女比例，部门比例

--  作者：有点蓝
--  发布时间：2019/1/21 20:17:00
--

Select e.DataCol.name
Case "出勤","实训人数","班级名称"
Dim dr As DataRow=DataTables("班级资料").find("班级名称= \'" & e.DataRow("班级名称") & "\'")
If dr IsNot Nothing Then
dr("实训人数")=e.DataTable.Compute("Count(出勤)","班级名称=\'" & e.DataRow("班级名称") & "\'and 出勤=\'是\'")
End If
End Select

可以使用分组统计：http://www.foxtable.com/webhelp/scr/1618.htm

--  作者：18651810926
--  发布时间：2019/1/22 9:04:00
--
代码是不是有啥问题，重置后出错
此主题相关图片如下：66666666666666.png

--  作者：有点甜
--  发布时间：2019/1/22 9:06:00
--

比如

dr("实训人数")=e.DataTable.Compute("Count(出勤)","班级名称=\'" & e.DataRow("班级名称") & "\' and 出勤=true")