If e.Col.Name= "剩余天数" Then
If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
Dim day As Integer = 0
If Integer.TryParse(e.Row(e.Col.Name),day) Then
If day < 7 Then '如果该列的值小于60
e.Style = "跟催" '那么用"不及格"样式绘制单元格
Else
e.Style = "正常" '那么用"优秀"样式绘制单元格
End If
Elsee.Row(e.Col.Name) = "超时" Then '如果单元格的值大于95
e.Style = "超时" '那么用"优秀"样式绘制单元
End If
End If
End If