Foxtable(狐表)用户栏目专家坐堂 → 求助:关于日期计算的问题


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

主题:求助:关于日期计算的问题

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


加好友 发短信
等级:幼狐 帖子:75 积分:748 威望:0 精华:0 注册:2013/11/8 16:12:00
求助:关于日期计算的问题  发帖心情 Post By:2018/10/18 19:39:00 [显示全部帖子]

用当前时间与一日期列进行比对,比对结果符合条件则的在另一列进行内容显示,如何实现。
如:列A为日期时间列,当前时间减去该列后大于5日的,则在列B显示“超期”

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


加好友 发短信
等级:幼狐 帖子:75 积分:748 威望:0 精华:0 注册:2013/11/8 16:12:00
  发帖心情 Post By: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



麻烦您指导下


 回到顶部