下面代码,红字代码不执行,如何处理,谢谢
If e.DataCol.Name="成绩" Then
If e.NewValue Is Nothing Then
e.DataRow("等级")= Nothing
'如果"成绩">= 105的条件,"等级"字段列=("A")
ElseIf e.NewValue>= 105 Then
e.DataRow("等级")=("A")
'如果95<="成绩" <105的条件,"等级"字段列=("B")
ElseIf e.NewValue >= 95 Or e.NewValue < 105 Then
e.DataRow("等级")=("B")
'如果85<="成绩" <95的条件,"等级"字段列=("C")
ElseIf e.NewValue >= 85 Or e.NewValue < 95 Then
e.DataRow("等级")=("C")
'如果70<="成绩" <85的条件,"等级"字段列=("D")
ElseIf e.NewValue >= 70 Or e.NewValue < 85 Then
e.DataRow("等级")=("D")
'如果"成绩" <70的条件,等级"字段列=("E")
Else
e.DataRow("等级")=("E")
End If
End If