查询排名

FK　发表于：2012-12-24 16:03:51 　

各位老师好，请教个问题。附件中有sheet一张表，现在要在查询中建立排名表。按照分数来排名，如果分数相同，排名相同。最终查询结果如下：

Name	数学	数学排名	语文	语文排名	体育	体育排名
alex	98	2	90	2	92	3
sophine	90	5	88	3	92	3
nicole	95	4	80	4	96	1
fk	99	1	76	5	87	5
peter	98	2	92	1	95	2

谢谢。

排名

Top

煮江品茶发表于：2012-12-24 17:09:41

select *,dcount("*","tbname","数学>" & 数学)+1 as 数学排名,dcount("*","tbname","语文>" & 语文)+1 as 语文排名,dcount("*","tbname","体育>" & 体育)+1 as 体育排名
from tbname

Top

FK 发表于：2012-12-24 17:26:14

谢谢煮江品茶。

Top

煮江品茶发表于：2012-12-24 17:31:18

好像不太精确，还是写个函数来处理吧。

Function num(fname As String, val As Single) As Long
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
    ssql = "select DISTINCT " & fname & " from sheet where " & fname & ">=" & val
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    num = rs.RecordCount
    rs.Close
    Set rs = Nothing
End Function

排名

Top

FK 发表于：2013-01-07 15:50:30

谢谢煮江品茶

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

查询 排名

查询排名