dr0("前30") = dt.Compute("count(总分)", "[班级] = '" & dr0("班级") & "' and [考试名称] = '" & ks & "' and [总分排名] <= 30 ")
dr0("前50") = dt.Compute("count(总分)", "[班级] = '" & dr0("班级") & "' and [考试名称] = '" & ks & "' and [总分排名] <= 50 ")
Dim cnt As Integer = 888
Dim idx As Integer
For i As Integer = 1 To Math.Ceiling(cnt/100)
idx = i*100
dr0("前" & idx) = dt.Compute("count(总分)", "[班级] = '" & dr0("班级") & "' and [考试名称] = '" & ks & "' and [总分排名] <= " & idx)
Next
dr0("后" & idx) = dt.Compute("count(总分)", "[班级] = '" & dr0("班级") & "' and [考试名称] = '" & ks & "' and [总分排名] > " & idx)
加好友 
发短信
Post By：2018/5/25 21:33:00 [显示全部帖子]
