主题：“日期”列为2015-08-25，时间列为“18:01:02”，如果时间离当前时间超过10分钟，就把字体标红，请问如何实现啊？谢谢

“日期”列为2015-08-25，时间列为“18:01:02”，如果时间离当前时间超过10分钟，就把字体标红，请问如何实现啊？谢谢

drawcell事件

 

Dim d As Date
e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.Black)
If Date.TryParse( e.Row("日期") & " " & e.Row("时间"), d) Then
    Dim sp As TimeSpan = Date.Now - d
    If sp.TotalMinutes > 10 Then
        e.style = "样式1"
    End If
End If

谢谢版主！ 如果只想把日期和时间的单元格标红可以吗？

If e.Col.Name = "日期" OrElse e.Col.Name = "时间" Then
    Dim d As Date
    e.Table.DataTable.AddUserStyle("样式1", Color.red, Color.Black)
    If Date.TryParse( e.Row("日期") & " " & e.Row("时间"), d) Then
        Dim sp As TimeSpan = Date.Now - d
        If sp.TotalMinutes > 10 Then
            e.style = "样式1"
        End If
    End If
   
End If

谢谢版主，太赞了

有个疑问，在本地表可以实现背景色的标红，但在外部数据表的drawcell事件里，无论使用菜单自定义样式还是去上代码中通过adduserstyle方法，都不能使背景变颜色，但是用菜单的自定义样式可以让字体颜色变化，很纳闷。。。求解啊，谢谢 外部数据表是查询表，是这个原因吗？可是帮助文档里说明了查询表可以用adduserstyle方法的啊？？

无论什么表，都是可以的。如代码

 

e.Table.DataTable.AddUserStyle("样式1", Color.Red, Color.Black)
e.style = "样式1"

发现是因为有e.StartDraw e.EndDraw,无论e.style放在哪里,设置都失效,只要没有e.StartDraw e.EndDraw,e.style设置的背景色就有效果.因为我有一列数据需要特殊渲染一下。不知如何解决？
此主题相关图片如下：无标题.png

不要一起设置。

 

If e.Col.Name = "第一列" Then
    e.Table.DataTable.AddUserStyle("样式1", Color.Red, Color.Black)
    e.style = "样式1"
Else
    e.StartDraw
   
    e.EndDraw
End If