Dim Values() As String = {"总分"}
Dim s1() As String = New String() {"总分"}
Dim dt As Table = Tables("成绩库")
For Each Value As String In Values
Dim nj As String = "2020"
Dim tjlb As String = "4期"
Dim bm As String = Value & "重点人数对照表"
Dim dtb As New DataTableBuilder(bm)
dtb.AddDef("单位",Gettype(String),8)
dtb.AddDef("统计类别",Gettype(String),8)
For Each tjbb As String In DataTables("成绩库").GetValues("部别","[年级] = '" & nj & "'And [类别] = '"& tjlb &"'")
For i As Integer = 0 To 2
dtb.AddDef( tjbb & i ,Gettype(Double),"",tjbb &"_"& (nj-i) & "级")
Next
Next
For i As Integer = 0 To 2
dtb.AddDef("合计"& i ,Gettype(Double),"","合 计_"& (nj-i) & "级")
Next
dtb.Build()
For i As Integer = 0 To 2
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).addnew()
dr("单位") = tjdw
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
Next
Next
StatusBar.Reset
Tables("成绩库").ResumeRedraw
统计分行填充了，并且按单位统计填充为0，不知怎么回事？请指教。谢谢！
加好友 
发短信
Post By：2019/11/11 10:15:00 [只看该作者]
