示例:
现在希望:
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
麻烦您指导下