以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，drawcell 代码报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61978)
--  作者：youngling
--  发布时间：2014/12/23 14:55:00
--  求助，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
--  作者：有点甜
--  发布时间：2014/12/23 14:58:00
--  
 提示什么错？
--  作者：有点甜
--  发布时间：2014/12/23 14:59:00
--  

这样写？

 

Dim tv As Date = e.Row("交货日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays < 3 Then \'如果订单已经不足3天
    e.Style = "紧急"
End If
--  作者：youngling
--  发布时间：2014/12/23 15:09:00
--  
甜 老师，这回不报错了，就是所有行都变红色了。这么回事呀？谢谢再帮我看下。
--  作者：有点甜
--  发布时间：2014/12/23 15:16:00
--  

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