主题：自动搜索

你说的编号是[序号]吗？缺席的时候分数不是没有么？有什么问题？

你想要怎样去处理？

你测试出问题了吗？好像程序没什么问题吧？排名出错？

 按钮代码有点问题

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楼