全部为逻辑了（yes/no) 数据的表如何统计每个字段为真的记录数？

1、新建个模块，里边写：

Function getCount(workNum As String, workType As String)
          getCount = DCount(workType, "服务记录", "工号='" & workNum & "' and " & workType & "=true")
      End Function
      2、新建个查询，里边写：

SELECT 服务记录.工号, getCount(工号,"打新") AS 打新合计, getCount(工号,"通财") AS 通财合计
      FROM 服务记录
      GROUP BY 服务记录.工号;