忘记了,要分投标项目统计:
可选用一个 rsTmp 存放项目:
Set rsTmp = cn.Executte "SELECT DISTINCT 投标项目 From A"
Do Until rsTmp.EOF
Open "SELECT * FROM A WHERE 投标项目='" & rsTmp!投标项目 & " ORDER BY 投标价格 DESC", cn
rs.MoveLast
rs.MoveFirst
For i = 1 To rs.RecordCount
rs!投标排名 = i
rs.Update
rs.MoveNext
Next i
Loop
要人工写代码生成。
首先 SELECT * FROM A ORDER BY 投标价格 DESC '如果假低在在前 ASC 或省略
然后
rs.MoveLast
rs.MoveFirst
For i = 1 To rs.RecordCount
rs!投标排名 = i
rs.Update
rs.MoveNext
Next i