以文本方式查看主题

-  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=126338)
--  作者：wuhanwei212
--  发布时间：2018/10/18 19:39:00
--  求助：关于日期计算的问题
用当前时间与一日期列进行比对，比对结果符合条件则的在另一列进行内容显示，如何实现。
如：列A为日期时间列，当前时间减去该列后大于5日的，则在列B显示“超期”
--  作者：有点甜
--  发布时间：2018/10/18 20:22:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2471.htm

 
--  作者：wuhanwei212
--  发布时间：2018/10/21 11:03:00
--  

示例：

现在希望：

1、对于10天内即将到期的产品，用红低白字显示到期日期。
2、每次打开项目，如果有10天内即将到期的产品，就自动提示用户，并筛选出这些即将到期的产品。

设计步骤

1、首先增加一个自定义样式，名称为“到期”，红底白字。

2、设置表的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


疑问：

（1）设计步骤里“首先增加一个自定义样式”，是在哪里增加的？

（2）这段代码为什么不能在列“执行通知书到期日”显示结果

Select Case e.DataCol.Name

    Case "收案日期"

        If e.DataRow.IsNull("收案日期") Then

            e.DataRow("执行通知书发出时间") = Nothing

        Else

            e.DataRow("执行通知书到期日") = e.DataRow("收案日期").AddDays(7)

        End If

End Select



麻烦您指导下
--  作者：有点甜
--  发布时间：2018/10/21 11:31:00
--  

1、http://www.foxtable.com/webhelp/scr/0656.htm

 

2、http://www.foxtable.com/webhelp/scr/1469.htm