Foxtable(狐表)用户栏目专家坐堂 → [求助]在表格里,天数到期自动标颜色


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

主题:[求助]在表格里,天数到期自动标颜色

帅哥哟,离线,有人找我吗?
lhfu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:2190 威望:0 精华:0 注册:2013/5/10 15:59:00
[求助]在表格里,天数到期自动标颜色  发帖心情 Post By:2023/8/17 11:25:00 [只看该作者]

各位老师,我在表格里,在逾期天数中,我设置好了代码公式,然后想让它逾期除了显示天数,再加上一自动标颜色
图片点击可在新窗口打开查看
我在表DrawCell事件是这么写的
If e.Col.Name = "到货日期" Then
    If e.Row.IsNull("到货日期") = False Then
        If e.Row("到货日期") > Date.Today.AddDays(1) Then
            e.Style = "到期"
        End If
    End If
End If
如果想将“计算到期天数”这一列,也加上自动标颜色,怎么设置改,请各位老师指导一下,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/17 11:29:00 [只看该作者]

If e.Col.Name = "到货日期" orelse e.Col.Name = "计算到期天数" Then

 回到顶部
帅哥哟,离线,有人找我吗?
lhfu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:2190 威望:0 精华:0 注册:2013/5/10 15:59:00
  发帖心情 Post By:2023/8/17 11:56:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
lhfu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:2190 威望:0 精华:0 注册:2013/5/10 15:59:00
  发帖心情 Post By:2023/8/17 14:22:00 [只看该作者]

蓝老师,红底白字,我在自定义样式,设置好了,如何一起带出来的呢?
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/8/17 14:22:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/17 14:25:00 [只看该作者]

说明自定义样式设置不正确,设置好了就会自动起作用的

 回到顶部
帅哥哟,离线,有人找我吗?
lhfu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:2190 威望:0 精华:0 注册:2013/5/10 15:59:00
  发帖心情 Post By:2023/8/17 14:35:00 [只看该作者]

谢谢蓝老师,我找到原因,是因为批量复制粘贴引起的,单个操作没有问题,谢谢

 回到顶部