以下是引用有点甜在2013-12-31 21:11:00的发言：
Dim t As Table = Tables("xxx")For Each r As Row In t.Rows
Dim over As Boolean = False
For i As Integer = 4 To 21
If r(t.Cols(i).Name) < 60 Then
r("备注") = "不及格"
over = True
Exit For
End If
Next
If over = False Then
If r("综合成绩") > 90 Then
r("备注") = "优秀"
Else If r("综合成绩") > 80 Then
r("备注") = "良好"
Else If r("综合成绩") > 70 Then
r("备注") = "中等"
Else If r("综合成绩") > 60 Then
r("备注") = "合格"
Else
r("备注") = "不合格"
End If
End If
Next
现在想把软件优化一下，上面代码是先比较前面成绩低于60就为不及格，现在想改一下，如果该学生没选这门课这门课程成绩是0，这是上面代码处理结果不及格，显然不合适，怎么改一下做到，低于60为不及格，如果为0就不判断为不及格。代码怎么改合适呢！最好是不及格可以特殊现实，比如红色字体或者背景颜色不同。
[此贴子已经被作者于2014-1-12 19:06:44编辑过]
加好友 
发短信
Post By：2014/1/12 19:02:00 [只看该作者]
