主题：学习日期提醒遇到的问题？求助

此主题相关图片如下：123321123.jpg

按教程做了个日期提醒的功能，但是如图所示，13年12月份的库存已经处理了，还是显示红色。

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

想做个已出库就不执行了，只执行未出库的！

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

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

 

此主题相关图片如下：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.对于已出库的订单，到期后就不执行提醒了。

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

 

此主题相关图片如下：111111111111111111111111.jpg

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

e.DataRow("交货日期") = e.DataRow("下单日期").AddDays(e.DataRow("生产周期"))

交货日期=日期+生产周期(天数）

我想改为生产周日=交货日期-下单日期

Select Case e.DataCol.Name
    Case "日期","交货日期"
        If e.DataRow.IsNull("下单日期") Then
            e.DataRow("生产周期") = Nothing
        Else
            e.DataRow("生产周期") = e.DataRow("交货日期").Delete(e.DataRow("生产周期"))
        End If
End Select

这样写，提示调用的目标发生的异常。

Select Case e.DataCol.Name
    Case "下单日期","交货日期"
        If e.DataRow.IsNull("下单日期") Then
            e.DataRow("生产周期") = Nothing
        Else
            e.DataRow("生产周期") = e.DataRow("交货日期").Delete(e.DataRow("下单日期"))
        End If
End Select

新手帮助上的日期提醒的例子是：

生产日期+保质期天数=到期日期

我想换种方式写代码试验下：

保质期天数=到期日期-生产日期

这样的，Bin老师

此主题相关图片如下：qq图片20140123150004.jpg

狐狸爸爸，看这个例子。

由于生产的需要，同1订单可能要派发给多个工作组共同作业。

我是采用逻辑列自动复制行的方法来实现的。

问题是，如果派单人员粗心或者着急点错了，能否在他点击后有个提示信息，确认后，在选中逻辑列呢！