字符列，要加上单引号\'的。

e.Form.Controls("Label1").text="请稍等,正在排名..."
Dim pmb As List(Of String) = CurrentTable.DataTable.GetValues("班级排名")
Dim pmd As List(Of String) = CurrentTable.DataTable.GetValues("年级排名")
Dim pmc As Integer
Dim ColNames() As String = {"总分"}
Dim TotalName As String
CurrentTable.Redraw = False \'刷新表

For Each ColName As String In ColNames
    For i As Integer = 0 To pmb.Count -1
        If pmb(i) = "" Then
            Continue For
        End If
        Dim drs As List(Of DataRow) = CurrentTable.DataTable.Select("[班级排名] = \'" & pmb(i) & "\'", ColName & " DESC")
        pmc = 0
       \' TotalName = ColName.SubString(0) & "_班名次"
        For n As Integer = 0 To drs.Count - 1
            pmc = pmc +1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)("总分排名" ) = drs(n-1)("总分排名" )
            Else
                drs(n)("总分排名" ) = pmc
            End If
        Next
    Next
    For i As Integer = 0 To pmd.Count -1
        If pmd(i) = "" Then
            Continue For
        End If
        Dim drs As List(Of DataRow) = CurrentTable.DataTable.Select("[年级排名] = \'" & pmd(i) & "\'", ColName & " DESC")
        pmc = 0
      \'  TotalName = ColName.SubString(0) & "_段名次"
        For n As Integer = 0 To drs.Count - 1
            pmc = pmc +1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)("级段名次" ) = drs(n-1)("级段名次")
            Else
                drs(n)("级段名次" ) = pmc
            End If
        Next
    Next
Next
CurrentTable.Redraw = True \'刷新表
e.Form.Controls("Label1").text="排名结束,你还在吗?"