Foxtable(狐表)用户栏目专家坐堂 → 学习日期提醒遇到的问题?求助


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

主题:学习日期提醒遇到的问题?求助

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
学习日期提醒遇到的问题?求助  发帖心情 Post By:2014/1/22 17:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:123321123.jpg
图片点击可在新窗口打开查看
按教程做了个日期提醒的功能,但是如图所示,13年12月份的库存已经处理了,还是显示红色。

想做个后续功能,点击逻辑列已出库后,会取消日期提醒。不知道如何实现,求解!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/22 17:41:00 [只看该作者]

在DrawCell 里多加一个判断.  if e.row("已出库")=false then  '判断已经勾上已经处理了就不执行了. 还是False的时候才执行.

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 8:40:00 [只看该作者]

想做个已出库就不执行了,只执行未出库的!


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 8:47:00 [只看该作者]

2楼不是已经告诉你了吗? 实在还是不会就上个例子吧,我帮你完成.

新手建议先按部就班看帮助哦.

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 8:50:00 [只看该作者]

是不是这样比较合理啊,bin老师,应该是已出库的就不执行了。如果是未出库的提示执行后,出库后,取消执行!

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 8:51:00 [只看该作者]

2楼的代码就符合你的要求.

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 8:57:00 [只看该作者]

新手教程上没写。只写了如何做提示。

 


图片点击可在新窗口打开查看此主题相关图片如下:123321123.jpg
图片点击可在新窗口打开查看

DrawCell代码:

If e.Col.Name = "交货日期" Then
    If e.Row.IsNull("交货日期") = False
        If e.Row("交货日期") < Date.Today.AddDays(2) Then
            e.Style = "到期提醒"
        End If
    End If
End If

想执行如下功能:

1.勾选已出库后,就不执行提醒。

2.对于已出库的订单,到期后就不执行提醒了。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/1/23 8:58:00 [只看该作者]

楼主,只是加一个简单的条件判断而已:

 

if e.col.name = "交货日期" AndAlso e.Text  > "" then

    if e.row("已出库")=false then  '如果没有出路

            if e.row("交货日期") < Date.Today Then '如果应交货日期早于今天

                  e.Style = "样式名称"

            End if

    end if

end if

[此贴子已经被作者于2014-1-23 8:58:05编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/23 8:59:00 [只看该作者]

2楼我不是已经告诉你吗?而且重复提醒了几次了. 为何你都不看,不听呢?

If e.Col.Name = "交货日期" Then
    If e.Row.IsNull("交货日期") = False andalso e.row("已出库")=false then 
        If e.Row("交货日期") < Date.Today.AddDays(2) Then
            e.Style = "到期提醒"
        End If
    End If
End If

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2014/1/23 10:48:00 [只看该作者]

我把做个问题想复杂了。Bin老师。

 


图片点击可在新窗口打开查看此主题相关图片如下:111111111111111111111111.jpg
图片点击可在新窗口打开查看

行号的颜色可以自定义,我能否把能行的颜色都自定义呢,类似与Excel的整行变色。


 回到顶部
总数 19 1 2 下一页