主题：通过运行时长标记每行背景颜色

drawcell事件

If e.Row.IsNull("新建时间") = False Then
    Dim sp As TimeSpan = Date.Now - cdate(e.Row("新建时间"))
    If sp.TotalHours > 12 AndAlso sp.TotalHours <= 24 Then
        e.Table.DataTable.AddUserStyle("绿色", color.green, Color.black)
        e.Style = "绿色"
    ElseIf sp.TotalHours > 24 AndAlso sp.TotalHours <= 36 Then
        e.Table.DataTable.AddUserStyle("黄色", color.yellow, Color.black)
        e.Style = "黄色"
    ElseIf sp.TotalHours > 36 Then
        e.Table.DataTable.AddUserStyle("红色", color.red, Color.black)
        e.Style = "红色"
    End If
End If

如果要定时刷新运行时长的值，做一个计划任务，执行代码

http://www.foxtable.com/webhelp/scr/0657.htm

http://www.foxtable.com/webhelp/scr/1452.htm