请教进行数据统计功能

roych

分组查询里有个Count聚合函数：

大概是这样。

roych

风中漫步 发表于 2016-1-13 15:18
是来消遣我们的?

我也觉得是这样。不如用Excel吧。
ADO可以，不过代码比较复杂。详见以下代码及附件。这里不再一一解释了。大体是先定义两个变量，一个用于存储字段的值（lngID），另一个用于存储计数的值（j）。当记录集的值与lngID相同的时候，j+1；否则j为1（即重新计数），并将记录集的值赋予lngID，这样的话就可以保证每个lngID都是与上一个记录集的值相比较了。

1. Sub test()
   
2.     Dim rst As New ADODB.Recordset
   
3.     Dim lngID As Long
   
4.     Dim j As Long
   
5.    
   
6.     rst.Open "test", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7.     lngID = 0
   
8.     j = 0
   
9.     Do Until rst.EOF
   
10.         If rst(0) = lngID Then
    
11.             rst(1) = j + 1
    
12.         Else
    
13.             rst(1) = 1
    
14.             
    
15.         End If
    
16.         lngID = rst(0)
    
17.         j = rst(1)
    
18.         rst.MoveNext
    
19.     Loop
    
20.     rst.UpdateBatch
    
21.     rst.Close
    
22. End Sub

复制代码

roych

fangliang66 发表于 2016-1-13 16:57
嗯，这个就没错了。。。不过我没接触过ADO...,不过没关系，不懂可以学。因为我的数据量比较大，而且我 ...

如果计算单元格不太多的话，Excel比Access好一些，否则就用Access吧。