只是建表和平均分、标准差的计算就耗时160多秒时间，估计是这个代码存在问题，我实在找不到原因，请指教。谢谢！
Dim Values() As String = {"总分"}
Dim s1() As String = New String() {"总分"}
Dim tjnj As String = 2018
Dim lm1s() As String = {"序号","部别","年级","科目"}
Dim lm2s() As String = {"参考人数","平均分","标准差"}
Dim dhs() As String = {"重点A","本科A","专科A"}
Dim lm3s() As String = {"平均分","标准差","平均分之和","标准差之和","目标","分数线","有效分"}
For Each Value As String In Values
'建表
Dim dtb As New DataTableBuilder( value & tjnj & "级有效分")
For Each lm1 As String In lm1s
dtb.AddDef( lm1 ,Gettype(String),8)
Next
For Each lm2 As String In lm2s
dtb.AddDef( lm2 ,Gettype(Double))
Next
For Each dh As String In dhs
For Each lm3 As String In lm3s
dtb.AddDef( dh & lm3 ,Gettype(Double),"", dh & "及以上_ "& lm3 &"")
Next
Next
dtb.Build()
For Each bm As DataTable In DataTables
If bm.name <> "成绩库" AndAlso bm.Name <> "校名设置" AndAlso bm.Name <> "目标设置" AndAlso bm.Name <> "名册" AndAlso bm.Name <> "信息表" AndAlso bm.Name <> "原始名册"AndAlso bm.Name <> "基数" AndAlso bm.Name <> "调用人数" AndAlso bm.Name <> "赋分"
Dim kemu_list() As String = {"语文","数学","英语","物理","历史","选科"}
For Each kemu As String In kemu_list
For Each bubie As String In DataTables("成绩库").GetValues("部别","年级 = '" & tjnj & "'")
Dim dr As DataRow
dr = DataTables(bm.name).addnew()
dr("科目") = kemu
dr("年级") = tjnj
dr("部别") = bubie
dr("参考人数") = DataTables("成绩库").Compute("count(" & dr("科目") & ")", "[部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'")
'平均分\标准差
dr("平均分") = Format(DataTables("成绩库").Compute("Avg(" & dr("科目") & ")", "[部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'"),"0.00")
Dim jdr As DataRow = DataTables("目标设置").Find("部别 = '" & dr("部别") & "' And 年级 = '" & dr("年级") & "'And 类别 = '区合计'")
For Each dh As String In dhs
For Each lm3 As String In lm3s
For j As Integer = 0 To dhs.length - 1
dr(dhs(j) & "目标") = jdr(dhs(j)) '目标取值填充
Dim tj As String = Left(bm.name,2) & "排名"
Dim tj1 As String = Left(bm.name,2)
tj1 = Left(bm.name,2)
Dim pm As Double = DataTables("成绩库").Find(" " & tj & " = '" & jdr(dhs(j)) & "' And [部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'")(tj1) '排名
dr(dhs(j) & "分数线") = DataTables("成绩库").Compute("Max(" & tj1 & ") ", " " & tj1 & " = '" & pm & "'And [部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'")
dr(dhs(j) & "平均分") = Format(DataTables("成绩库").Compute("Avg(" & dr("科目") & ")", "[部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'And [总分] >= '" & pm & "' "),"0.00")
Tables("成绩库").Filter = " 部别 = '" & dr("部别") & "' And 年级 = '" & dr("年级") & "'"
Dim p As Integer = Tables("成绩库").Cols("" & dr("科目") & "").Index '指定位置的列
Dim rs As Integer = Tables("成绩库").Rows.Count -1 '指定位置的行
dr("标准差") = Tables("成绩库").Aggregate(AggregateEnum.Std, 0, p, rs, p)
dr(dhs(j) & "标准差") = Format(Tables("成绩库").Compute("StDev(" & dr("科目") & ")", "[部别] = '" & dr("部别") & "' And [年级] = '" & dr("年级") & "'And [总分] >= '" & pm & "'"),"0.00")
Tables("成绩库").Filter = ""
Tables("总分"& tjnj &"级有效分").Sort = "部别"
Next
Next
Next
DataTables("总分"& tjnj &"级有效分").DeleteFor("[参考人数] <= 0 ")
'序号填充
Dim tj2 As String = "序号"
Dim drs As List(Of DataRow) = DataTables("总分"& tjnj &"级有效分").Select("[年级] = '" & tjnj & "'", "部别")
For n As Integer = 0 To drs.Count - 1 '遍历所有行
drs(n)(tj2) = n '设置排序
Next
Next
Next
End If
Next
Next
DataTables("成绩库").ResumeRedraw
此主题相关图片如下：1.png
加好友 
发短信
Post By：2021/2/23 20:38:00 [只看该作者]
