以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于如何取消到期提醒的样式问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136982)
--  作者：wuhanwei212
--  发布时间：2019/6/25 21:25:00
--  关于如何取消到期提醒的样式问题
    以http://www.foxtable.com/webhelp/index.htm?page=2471.htm中到期提醒设计为例，如果要实现：样式到期提醒10日后去除“到期”自定义样式，恢复到原来无样式的状态，如何实现？请大神指教

  1、设置表的DataColChanged事件代码，以便根据生产日期和到期天数，计算出到期日期：

Select Case e.DataCol.Name
    Case "生产日期","保质天数"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("保质天数"))
        End If
End Select

  2、设置表的DrawCell事件代码，标出10天内即将到期的产品：

If e.col.Name = "到期日期" Then
    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) Then
            e.Style = "到期"
        End If
    End If
End If
--  作者：有点蓝
--  发布时间：2019/6/25 22:06:00
--  
If e.col.Name = "到期日期" Then
    If e.Row.IsNull("到期日期") = False
        If e.Row("到期日期") < Date.Today.AddDays(10) andalso e.Row("到期日期") >= Date.Today Then
            e.Style = "到期"
        End If
    End If
End If