If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容 If e.Row(e.Col.Name) < 60 Then '如果该列的值小于60 e.Style = "不及格" '那么用"不及格"样式绘制单元格 End If End If End If
3、在计划管理(位于数据库功能区)中增加一个计划,时间间隔设为1000,代码设为
With DataTables(
"成绩表").Styles("不及格") If .BackColor = Color.Red Then .BackColor = Color.White Else .BackColor = Color.Red End If End With