主题：错在哪里？

筛选出学生男子组100M，点击“决赛名次”按键，出现以下提示，请问错在哪里？

点击“决赛名次”按键，什么都不显示

通过。谢谢甜老师！谢谢Bin老师！

“决赛名次”为：1、2、3、4、5、6、7、8   ，对应在“得分”中为：9、7、6、5、4、3、2、1 。 按钮代码如何改 ？

有点问题

通过，但继续误点击“决赛名次”时，跳出以下窗口，觉得不好，麻烦稍把代码修改一下，即使继续误点击“决赛名次”，即不反映，也不跳出以下窗口就行了。

Dim filter As String = Tables("运动会比赛成绩").Filter
filter = iif(filter > "",  filter, "1=1")
Dim dr As DataRow = DataTables("运动会比赛成绩").Find(filter,"决赛成绩",8)
Tables("运动会比赛成绩").Filter = filter & " and " & "决赛成绩 < '" & dr("决赛成绩") & "'"
Tables("运动会比赛成绩").Sort = "决赛成绩"
If Tables("运动会比赛成绩").Rows.count>0 Then
    Tables("运动会比赛成绩").Rows(0)("决赛名次") = 1
    For i As Integer = 1 To Tables("运动会比赛成绩").Rows.Count - 1
        If  Tables("运动会比赛成绩").Rows(i)("决赛成绩")  =     Tables("运动会比赛成绩").Rows(i - 1)("决赛成绩")  Then
            Tables("运动会比赛成绩").Rows(i)("决赛名次")  =     Tables("运动会比赛成绩").Rows(i - 1)("决赛名次")
        Else
            Tables("运动会比赛成绩").Rows(i)("决赛名次")  = i+1
        End If
    Next
End If