- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 学习日期提醒遇到的问题？求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45343)
-- 发布时间：2014/1/22 17:39:00
-- 学习日期提醒遇到的问题？求助
此主题相关图片如下：123321123.jpg
按教程做了个日期提醒的功能，但是如图所示，13年12月份的库存已经处理了，还是显示红色。
想做个后续功能，点击逻辑列已出库后，会取消日期提醒。不知道如何实现，求解！
-- 发布时间：2014/1/22 17:41:00
--
在DrawCell 里多加一个判断. if e.row("已出库")=false then \'判断已经勾上已经处理了就不执行了. 还是False的时候才执行.
-- 发布时间：2014/1/23 8:40:00
--
想做个已出库就不执行了，只执行未出库的！
-- 发布时间：2014/1/23 8:47:00
--
2楼不是已经告诉你了吗? 实在还是不会就上个例子吧,我帮你完成.
新手建议先按部就班看帮助哦.
-- 发布时间：2014/1/23 8:50:00
--
是不是这样比较合理啊，bin老师，应该是已出库的就不执行了。如果是未出库的提示执行后，出库后，取消执行！
-- 发布时间：2014/1/23 8:51:00
--
2楼的代码就符合你的要求.
-- 发布时间：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.对于已出库的订单，到期后就不执行提醒了。
-- 发布时间：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编辑过]
-- 发布时间：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
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
-- 发布时间：2014/1/23 10:48:00
--
我把做个问题想复杂了。Bin老师。
此主题相关图片如下：111111111111111111111111.jpg
行号的颜色可以自定义，我能否把能行的颜色都自定义呢，类似与Excel的整行变色。