主题：自动搜索

你前面上的例子，仅仅只有一行，又想比较多行。

现在是提倡节俭，但不至于到楼主这个地步。

我就是想比较一行，但现在比较多行了？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩排名.rar

当点击排名按钮时，最大、最小出现问题。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩排名.rar

 按钮代码有点问题

 

Dim t As Table = Tables("成绩表")
For i As Integer = 0 To t.Rows.Count - 1
    Dim Names As New List(Of Object)
    For j As Integer = 1 To 16
        If t.Rows(i).IsNull("评委" & j) = False Then
            Names.Add(t.Rows(i)("评委" & j))
        End If
    Next
    If names.count > 0 Then
        t.Rows(i)("最大") = Functions.Execute("最大值",names.ToArray)
        t.Rows(i)("最小") = Functions.Execute("最小值",names.ToArray)
    End If
Next

'获得该班级的全部行,按取舍后合计降序排序
Dim drs As List(Of DataRow) = DataTables("成绩表").Select("", "取舍后合计 DESC")
For n As Integer = 0 To drs.Count - 1 '遍历所有行
    If n > 0 AndAlso drs(n)("取舍后合计") = drs(n-1)("取舍后合计") Then '如果取舍后合计和上一行相同
        drs(n)("名次") = drs(n-1)("名次") '则排名等于上一行
    Else
        drs(n)("名次") = n + 1 '设置排名
    End If
Next
Tables("成绩表").Sort = "名次"

当有参赛者缺席时，分数为零时，仍出现问题。

 

试试26楼

楼主说的是总分为0，还有排名。

是楼主原来的排名代码，不够严谨。

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:成绩排名.rar

非常感谢！我略加修改，使总分为0的排在最后。