点击没有反应了,现在什么等级也没有了,比如化学这一科没有考试,所以没有成绩,只有化学这一个科目的等级就不生成,其他科目的等级还是要照常生成的,呵呵
代码是:
Dim vals() As Double = {0.1,0.35,0.75,0.95}
Dim nms() As String = {"语文","数学","英语","物理","化学","政治","历史","地理","生物","体育"}
Dim cnt As Integer = DataTables("学科等级").DataRows.count
For Each nm As String In nms
Dim drs As List (of DataRow) = DataTables("学科等级").Select("", nm & " Desc")
Dim dn As String = nm & "等级"
For i As Integer = 0 To drs.count - 1
If drs(i).IsNull(dn) = True Then
drs(i)(dn) = Nothing
Else
Dim v As Double = i /cnt
If v > vals(3) Then
drs(i)(dn) = "E"
ElseIf v > vals(2) Then
drs(i)(dn) = "D"
ElseIf v > vals(1) Then
drs(i)(dn) = "C"
ElseIf v > vals(0) Then
drs(i)(dn) = "B"
Else
drs(i)(dn) = "A"
End If
End If
Next
Next
不知道是啥问题呢???
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq图片20150123092917.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-1/20151239292986969.jpg)
[此贴子已经被作者于2015-1-23 9:32:45编辑过]