For Each tjbb As String In DataTables("成绩库").GetValues("部别","[年级] = '" & nj & "'And [类别] = '"& tjlb &"'")
Dim dr As DataRow
dr = DataTables(bm).addnew()
dr("单位") = "全区合计"
dr("统计类别") = tjlb
Dim wdr As DataRow = DataTables("分数线").Find("类别 = '" & tjlb & "'And 部别 = '" & tjbb & "'")
Dim tj As String = Left(bm,2) & "排名"
Dim tj1 As String = Left(bm,2)
dr( tjbb & i ) = DataTables("成绩库").Compute("count(单位)", "" & tj1 & " >= '" & wdr("目标" & (i+1) ) & "' And [部别] = '" & tjbb & "' And [类别] = '" & tjlb & "'And [年级] = '"& (nj-i) &"'")
For Each tjdw As String In DataTables("成绩库").GetValues("单位","[年级] = '" & nj & "'And [类别] = '"& tjlb &"'")
dr = DataTables(bm).find("单位='" & tjdw & "'")
if dr is nothing then
dr = DataTables(bm).addnew()
dr("单位") = tjdw
end if
dr("统计类别") = tjlb
tj = Left(bm,2) & "排名"
tj1 = Left(bm,2)
dr( tjbb & i ) = DataTables("成绩库").Compute("count(单位)", "" & tj1 & " >= '" & wdr("目标" & (i+1) ) & "' And [单位] = '" & dr("单位") & "' And [部别] = '" & tjlb & "' And [类别] = '" & tjlb & "'And [年级] = '"& (nj-i) &"'")
Next
If bm <> "成绩库" AndAlso bm <> "校名设置" AndAlso bm <> "目标设置" AndAlso bm <> "分数线" AndAlso bm <> "市级1分段" AndAlso bm <> "区县基数" AndAlso bm <> "基数" AndAlso bm <> "调用基数"
dr = DataTables(bm).addnew()
dr("单位") = "市级分数线"
dr("统计类别") = tjlb
dr( tjbb & i ) = wdr("目标" & (i+1) )
End If
Next
加好友 
发短信
Post By：2019/11/11 10:25:00 [只看该作者]
