如例子：淘汰线计算的代码，怎么弄也弄不好，请老师帮助一下，谢谢了：代码如下：
Dim dt As DataTable = DataTables("成绩")
Dim dt_d As DataTable = DataTables("淘汰线计算")
dt_d.DataRows.Clear
For Each zy As String In dt.GetValues("专业组名称")
Dim zy_sum As Double = 0
For Each s As String In zy
Dim dr As DataRow = dt_d.AddNew
dr("专业组名称") = zy
dr("淘汰线分数") = '淘汰线分数:按写入的淘汰率(10%),找出每个专业组名称的最低分数,即分数线
dr("平均淘汰线") = '按照找出来的各专业组名称的"淘汰线分数"相加,除以专业组名称的个数,算出平均淘汰线
Next
If dt.DataRow("最终成绩")> dr("平均淘汰线") Then '如果成绩表中的最终成绩大于淘汰线计算表的平平均淘汰线
dt.DataRow("等次") ="平均入围"
Else
dt.DataRow("等次") ="平均淘汰"
End If
Next
加好友 
发短信
Post By：2015/3/10 9:42:00 [显示全部帖子]
