'Select Case e.DataCol.Name
' Case "创建日期", "时效", "到期日期"
' If e.DataCol.Name = "到期日期" Then '
' If e.NewValue Is Nothing Then
' e.DataRow("到期提示") = Nothing
' ElseIf e.DataRow("到期日期") > Date.Today Then
' e.DataRow("到期提示") = Nothing
' ElseIf e.DataRow("到期日期") < Date.Today.AddDays(10) Then
' e.DataRow("到期提示") = ("将到期")
' ElseIf e.DataRow("到期日期") = Date.Today Then
' e.DataRow("到期提示") = ("到期")
' Else
' '
' End If
' End If
'End Select
执行都变成("将到期")没有分，不是需求，需求是"当前日期"大于到期日期10天前，到期提示列为空，"当前日期"小于到期日期10天前，到期提示列提示还有多长时间到期，"当前日期"=到期日期，到期提示列提示到期，否则，到期提示列提示延期，
加好友 
发短信
Post By：2023/6/4 20:03:00 [显示全部帖子]
此主题相关图片如下：到期取值.jpg
