主题：[求助] 代码

If e.DataCol.Name="总分数" Then
    Dim drs As List(of DataRow)
    drs=DataTables("团体总分表").Select("[年级] = '" & e.DataRow("年级")  & "'","总分数 DESC")
    Dim a As Integer = 1
        For Each dr As DataRow In drs
        dr("年级排名") = a
        a = a + 1
    Next
End If

以上代码；当“总分数”为数据列时可以正常运行，为表达式列时不能运行。

现在想在“总分数”为数据列时可以正常运行，代码如何修改？ 请指教！！！