请教统计指定值个数的问题

lingjiang

我想设计一个查询统计表中各行“1”的个数，请大家指教育，同时感谢上次高手的帮助

wang1950317

回复 lingjiang 的帖子

给你一个最笨的法子：

roych

回复 lingjiang 的帖子

给段比较复杂的代码：

1. Sub test()
   
2. Dim rst As New ADODB.Recordset
   
3. Dim i As Long, j As Long
   
4. rst.Open "表1", CurrentProject.Connection, 1, 3
   
5. For i = 1 To rst.RecordCount
   
6.     For j = 1 To rst.Fields.Count - 1
   
7.         If rst(j) = 1 Then
   
8.             t = t + 1
   
9.         End If
   
10.       
    
11.     Next j
    
12. MsgBox t
    
13. rst.MoveNext
    
14. t = 0
    
15. Next i
    
16. End Sub

复制代码

新建一个模块，把代码贴进去，按下F5运行，即可依次弹出统计数据。不过，——啰嗦分子Roy又得说“不过”了，——这个表设计不合理。应该设计成：
序号、数据类型（1~6）、数据三个字段。
需要按附件那样显示的话，用交叉表查询就可以实现了。

lingjiang

已用二楼方法，十分感谢