Foxtable(狐表)用户栏目专家坐堂 → [转帖]颜色提示


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

主题:[转帖]颜色提示

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 14:48:00 [显示全部帖子]

要么列名写错,要么没有符合的数据。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 14:56:00 [显示全部帖子]

加入output.show(123456)看是否触发 不行,就上传例子。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 15:15:00 [显示全部帖子]

代码是没问题的,肯定是你哪一步错了。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 15:17:00 [显示全部帖子]

上传实例

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 15:30:00 [显示全部帖子]

以下是引用lmlptj在2015/7/16 15:19:00的发言:
项目密码??


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 15:40:00 [显示全部帖子]

你没有往表里面drawcell事件写代码。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 15:41:00 [显示全部帖子]

代码要写到 表属性 里面去

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/16 17:48:00 [显示全部帖子]

If e.Col.Name = "计划支付时间" Then     '提示到期
    If e.Row("完成与否") = True Then
        If e.Row.IsNull("计划支付时间") = False Then
            If e.Row("计划支付时间") < Date.Today.AddDays(10) Then
                e.Style = "到期"
            End If
            If e.Row("计划支付时间") > Date.Today.AddDays(-10) And e.Row("计划支付时间") < Date.Today Then
                e.Style = "提醒"
            End If
        End If
    End If
End If

[此贴子已经被作者于2015/7/16 17:48:34编辑过]

 回到顶部