主题：老六你的递归函数我这才搞明白

 关键要看楼主要实现的是什么了。加粗的代码，好像有点累赘。

Dim dt As DataTable =DataTables("中招录取Ⅰ")
Dim drs As List(Of DataRow) = DataTables("中招录取Ⅰ").Select("", "总分 DESC")
Functions.Execute("排名",dt,drs)

内部函数名为排名

Dim dt As DataTable = Args(0)
Dim drs As List(Of DataRow) = Args(1)
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