统计一个字段中大于等于这一个字段中值的个数

sk78911 · 发表于 2018-9-5 16:38

数据库表test如图，要统计hczf这个字段中>=其中每个值的个数，写入PM字段
比如hczf字段中第一个值525.8，统计>=528.8的个数，依次统计每一个值
我在窗体中按钮下这样写，但是计算速度太慢，因为数据有好几万条，基本一个小时跑不出来
Private Sub Command0_Click()
CurrentDb.Execute ("update test set pm=null")
Set rs = CurrentDb.OpenRecordset("test")
Do While Not rs.EOF
      je = rs("hczf")
      n = DCount("*", "test", "hczf>=" & je & "")
      rs.Edit
      rs![pm] = n
      rs.Update
      rs.MoveNext
Loop
rs.Close
MsgBox "统计完成"
End Sub

请大神帮看下，要怎么写才能较快统计出来
附件如下

test.rar (225.86 KB, 下载次数: 7)

sa3131 · 发表于 2018-9-5 16:57

先排序再计算

sk78911 · 发表于 2018-9-5 17:21

sa3131 发表于 2018-9-5 16:57
先排序再计算

不知道怎么弄，统计太慢了

sk78911 · 发表于 2018-9-6 11:39

没人回答么自己顶顶

		自动登录	找回密码
密码			免费注册

[求助] 统计一个字段中大于等于这一个字段中值的个数