主题：错在哪里？

按钮代码改一下

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

 这样写

Dim dfs() As Integer = {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
    Tables("运动会比赛成绩").Rows(i)("得分") = dfs(0)
    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
        Tables("运动会比赛成绩").Rows(i)("得分") = dfs(i)
    Next
End If

 呵呵，写错了，改成

Tables("运动会比赛成绩").Rows(0)("得分") = dfs(0)

 代码

Dim dfs() As Integer = {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)
If dr IsNot Nothing Then
    Tables("运动会比赛成绩").Filter = filter & " and " & "决赛成绩 < '" & dr("决赛成绩") & "'"
    Tables("运动会比赛成绩").Sort = "决赛成绩"
    If Tables("运动会比赛成绩").Rows.count>0 Then
        Tables("运动会比赛成绩").Rows(0)("决赛名次") = 1
        Tables("运动会比赛成绩").Rows(0)("得分") = dfs(0)
        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
            Tables("运动会比赛成绩").Rows(i)("得分") = dfs(i)
        Next
    End If
End If