Dim drs As List(Of DataRow) = DataTables("九年级全年级").Select("[学校] = " & bjs(i), ColName & " DESC")
应该改为:
Dim drs As List(Of DataRow) = DataTables("九年级全年级").Select("[学校] = '" & bjs(i) & "'" , ColName & " DESC")
建议看看:
http://www.foxtable.com/help/topics/1284.htm