主题：“日期”列为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