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

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