如何根据[分类]字段给[排名]字段赋值？

秒弑

如题。源代码如下：

1. Private Sub CommandFind_Click()
   
2. Dim rs As New ADODB.Recordset
   
3. Dim strfind, strBiaoname As String
   
4. Dim strTup, strTdown As Date
   
5. 
   
6. '清除子窗体数据源
   
7. Me.ChildShow.SourceObject = ""
   
8. 
   
9. If Me.ComboBiao.Value <> "" Then
   
10.     strTup = Me.TextTup.Value
    
11.     strTdown = Me.TextTDown.Value
    
12.     strBiaoname = DLookup("表名", "学生成绩_表名", "说明 = '" & Me.ComboBiao.Value & "'")
    
13. 
    
14.     '批量删除临时表
    
15.     Dim tbl As DAO.TableDef
    
16.     For Each tbl In CurrentDb.TableDefs
    
17.         If Left(tbl.Name, 4) = "临时表_" Then
    
18.         DoCmd.DeleteObject acTable, tbl.Name
    
19.         End If
    
20.     Next
    
21.    
    
22.     '删除指定表
    
23.     'strfind = "drop table 临时表_成绩查询"
    
24.     'rs.Open strfind, CurrentProject.Connection, 1, 3
    
25. 
    
26.     '建立临时表
    
27.     strfind = "select 学生档案.班级,学生档案.姓名," & strBiaoname & ".语文," & strBiaoname & ".数学," & strBiaoname & ".英语 into 临时表_成绩查询 from 学生档案 INNER JOIN " & strBiaoname & " ON 学生档案.ID = " & strBiaoname & ".ID where 学生档案.入学时间 between # " & strTup & " # and #" & strTdown & "# "
    
28.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
29.    
    
30.     '建立新字段
    
31.     strfind = "alter table 临时表_成绩查询 add 总分 smallint ,排名 smallint"
    
32.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
33. 
    
34.     '总分字段赋值
    
35.     strfind = "UPDATE 临时表_成绩查询 SET 总分 = 语文+数学+英语"
    
36.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
37. 
    
38.     '排名字段赋值
    
39.     '直接排名并更新：update 临时表_成绩查询 a set 排名=dcount('总分','临时表_成绩查询','总分>' & a.总分) +1
    
40.     '根据班级字段排名并更新：？
    
41.     strfind = "update 临时表_成绩查询 a set 排名=dcount('总分','临时表_成绩查询','总分>' & a.总分) +1"
    
42.     rs.Open strfind, CurrentProject.Connection, 1, 3
    
43. 
    
44. 
    
45.     '更新子窗体数据源
    
46.     Me.ChildShow.SourceObject = "表.临时表_成绩查询"
    
47.     '子窗体数据按指定字段排序
    
48.     Me.ChildShow.Form.RecordSource = "select * from 临时表_成绩查询 order by 班级,排名"
    
49.     '刷新子窗体显示
    
50.     Me.ChildShow.Requery
    
51.    
    
52.     Set rs = Nothing
    
53. Else
    
54.     MsgBox "没有选择考试时间！"
    
55. End If
    
56. 
    
57. End Sub

复制代码

请教如何根据“班级”分类计算排名并更新呢？
我写的是：

1. strfind = "update 临时表_成绩查询 a set 排名=dcount('总分','临时表_成绩查询','总分>' & a.总分) +1"

复制代码

但是只能无分类排名，要怎么修改？
源文打包如下：

Henry D. Sy

strfind = "update 临时表_成绩查询 a set 排名=dcount('总分','临时表_成绩查询','班级='"& 班级 &"' AND 总分>' & a.总分) +1"

秒弑

修改后报错，请问H大这是怎么回事？{:soso_e132:}

秒弑

H大，求助！

秒弑

H大，求助！

aslxt

    strfind = "update 临时表_成绩查询 a set 排名=dcount(" & """" & "总分" & """" & "," & """" & "临时表_成绩查询" & """" & "," & """" & "班级='" & """" & " & a.班级 & " & """" & "'  AND 总分>" & """" & " & a.总分) +1"

p51219

好好好好好好好好好好好