理论成绩也有留空的情况？
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.IsNull(t.Cols(i).Name) = False And r(t.Cols(i).Name) >0 AndAlso 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 If r.IsNull("综合成绩") = False And r("综合成绩") >0 AndAlso r("综合成绩") < 60 then
r("备注") = "不合格"
else
r("备注") = "不知道用什么标准了"
End If
End If
Next
加好友 
发短信
Post By：2014/1/12 21:47:00 [显示全部帖子]
