以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  设置过期提醒求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95920)

--  作者:新手求救
--  发布时间:2017/2/8 16:45:00
--  设置过期提醒求解
想让  输入日期 减 施工日期   >10天    本行底为红色   
怎样编码 求救  

(看帮助中的到期提醒也没弄明白)
谢谢各位老师
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170208163102.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/2/8 16:49:08编辑过]

--  作者:有点色
--  发布时间:2017/2/8 16:53:00
--  

 

Dim sp As TimeSpan = e.Row("输入日期") - e.Row("施工日期")
If sp.TotalDays >= 10 Then
    e.Table.DataTable.AddUserStyle("到期", color.red, color.black)
    e.style = "到期"
End If


--  作者:新手求救
--  发布时间:2017/2/8 16:59:00
--  
谢谢  老师    完美