主题：咨询个自动排名的问题，是不是表达式列不能排名？

没有这个道理，纸上不谈兵，做个简单的例子发上来说话

你的代码只是排名，不是排序，你要同事排名和排序：

Dim drs As List(Of DataRow) = DataTables("表A").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("表A").sort = "总分 Desc"