Dim sx1 As String = "[实验班志愿] ='重庆一中' and [录取学校] Is null and [其它排名] > 0 and [其它排名] <= 1" Dim dr8s As List(Of DataRow) = DataTables("招生数据").Select(sx1,"总分 DESC") For i4 As Integer = 0 To dr8s.count -1 dr8s(i4)("录取学校") = "重庆一中" dr8s(i4)("录取说明") = "第一批第二类" Next