主题：求助，drawcell 代码报错

各位高手，我想实现这个功能，就是如果交货日期距当天日期不足3天，就把该行订单用红色标示出来，也就是e.style=紧急。

我在drawcell里面写了以下代码，提示代码错误，到底该怎么改呀，我搜了很久论坛，看了半天帮助也没有搞定！

 

求助！！

 

Dim tv As Date = e.Row("交货日期")
Dim tp AsTimeSpan = Date.Today - tv
If tp.TotalDays < 3 Then '如果订单已经不足3天
    e.Style = "紧急"
End If

 提示什么错？

这样写？

 

Dim tv As Date = e.Row("交货日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays < 3 Then '如果订单已经不足3天
    e.Style = "紧急"
End If

甜 老师，这回不报错了，就是所有行都变红色了。这么回事呀？谢谢再帮我看下。

Dim tv As Date = e.Row("交货日期")
Dim tp As TimeSpan = tv - Date.Today
If tp.TotalDays < 3 AndAos tp.TotalDays >= 0  Then '如果订单已经不足3天
    e.Style = "紧急"
End If