[求助]关于判断日期并给指定单元格上色 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、已在表的自定义格式中设置远期，近期，到期三个样式

2、根据表中“服务结束时间”到今天的值判断，>30天是远期，<=30天并且>=0天是近期，<0天的到期

3、根据结果让“服务结束时间”变成指到的背景色

4、在表的Drawcell事件中建立以下代码

Dim t As TimeSpan

t = Date.Today - CDate(CurrentTable.Current("服务结束时间"))

If t.TotalDays > 30 Then

e.style = "远期"

ElseIf t.Totaldays <= 30 And t.Totaldays >= 0 Then

e.Style = "近期"

ElseIf t.Totaldays < 0 Then

e.style = "到期"

End If

这是代码，执行后全行都变了，而且在增加数据，修改数据时，颜色会变来变去的。

请老师指导一下，非常感谢。

[此贴子已经被作者于2022/6/21 15:29:12编辑过]

主题：[求助]关于判断日期并给指定单元格上色