Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于判断日期并给指定单元格上色


  共有4373人关注过本帖树形打印复制链接

主题：[求助]关于判断日期并给指定单元格上色
帅哥哟，离线，有人找我吗？
lasn
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：40 积分：332 威望：0 精华：0 注册：2022/4/19 11:15:00 		[求助]关于判断日期并给指定单元格上色  发帖心情 Post By：2022/6/21 15:28:00 [只看该作者]

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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 15:31:00 [只看该作者]

看看：http://www.foxtable.com/webhelp/topics/2925.htm


if e.row.isnull("服务结束时间") = false then
Dim t As TimeSpan
t = Date.Today - CDate(e.row("服务结束时间"))
    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
endif
[此贴子已经被作者于2022/6/21 15:32:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lasn
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：40 积分：332 威望：0 精华：0 注册：2022/4/19 11:15:00 		  发帖心情 Post By：2022/6/21 15:52:00 [只看该作者]

明白了，不能直接用current，这样颜色就不会变来变去的了

另外，那请教一下，怎么才能让指定单元格变，而不是一行都变。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/21 15:56:00 [只看该作者]

加上列名判断

if e.col.name = "xxxx"
 回到顶部
帅哥哟，离线，有人找我吗？
lasn
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：40 积分：332 威望：0 精华：0 注册：2022/4/19 11:15:00 		  发帖心情 Post By：2022/6/21 16:03:00 [只看该作者]

多谢蓝主，今天我又进步了！图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询