以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用代码实现这种统计?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39836)

--  作者:comnets
--  发布时间:2013/9/2 20:18:00
--  如何用代码实现这种统计?
比如六行数据

男 28岁 管理人员
女 27岁 管理人员
男 28岁 教师
男 23岁 后勤人员
女 24岁 教师
男 31岁 管理人员

怎样用代码统计出同时符合男性、管理人员的人员个数?

--  作者:lsy
--  发布时间:2013/9/2 20:30:00
--  

Dim i As Integer
For Each r As Row In Tables("订单").Rows
    If r("产品") = "PD01" AndAlso r("客户") = "CS03" Then
        i + = 1
    End If
Next
MessageBox.Show(i)

 


Tables("订单").Filter = "产品 = \'PD01\' And 客户 = \'CS03\'"
MessageBox.Show(Tables("订单").Rows.Count)


--  作者:有点甜
--  发布时间:2013/9/2 20:36:00
--  
加红的地方,你自己改成相应的。

直接写 datatables("xxx").compute("count(_Identify)", “性别 = \'男\' and 职位 = \'管理人员\'”)

--  作者:有点甜
--  发布时间:2013/9/2 20:38:00
--  
 参考 
--  作者:comnets
--  发布时间:2013/9/2 21:22:00
--  
多谢图片点击可在新窗口打开查看