语法错误:“班”运算符后缺少操作数。

Dim bjs As List(Of  String) = DataTables(Vars("tjmc")).GetValues("班级")
For Each  bj As  String In bjs
      \'获得该班级的全部行,按分值降序排序
    Dim  drs As List(Of  DataRow) = DataTables(Vars("tjmc")).Select("[班级] = " & bj,hm & "_分值 DESC")
      For n As  Integer = 0 To drs.Count -  1  \'遍历所有行
         If n > 0 AndAlso drs(n)(hm & "_分值") = drs(n-1)("hm &_分值") Then  \'如果分值和上一行相同
            drs(n)(hm & "_名次") = drs(n-1)(hm & "_名次")  \'则排名等于上一行
         Else
             drs(n)(hm & "_名次") = n + 1  \'设置排名
         End If
      Next
 Next

Dim  drs As List(Of  DataRow) = DataTables(Vars("tjmc")).Select("[班级] = " & bj,hm & "_分值 DESC")

改成

Dim  drs As List(Of  DataRow) = DataTables(Vars("tjmc")).Select("[班级] = \'" & bj & "\'",hm & "_分值 DESC")