- 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=186869)
-- 发布时间：2023/6/4 20:03:00
-- 到期提示的问题
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
如何实现表A的"创建日期"大于到期日期10天前，到期提示列为空，"创建日期"小于到期日期10天前，到期提示列提示还有多长时间到期，"创建日期"=到期日期，到期提示列提示到期，否则，到期提示列提示延期，
-- 发布时间：2023/6/4 20:11:00
--
没看懂，请举例具体数据说明一下
-- 发布时间：2023/6/4 21:11:00
--
如何实现表A的"当前日期"大于到期日期10天前，到期提示列为空，"当前日期"小于到期日期10天前，到期提示列提示还有多长时间到期，"当前日期"=到期日期，到期提示列提示到期，否则，到期提示列提示延期，
如图
此主题相关图片如下：到期取值.jpg
此主题相关图片如下：到期取值.jpg-- 发布时间：2023/6/4 21:26:00
--
drawcell事件
If e.col.Name = "到期提示" Then
If e.Row.IsNull("到期日期") = False
If e.Row.IsNull("到期日期") = False
if e.Row("到期日期") = Date.Today
e.text = "到期"
elseif e.Row("到期日期") < Date.Today.AddDays(10) andalso e.Row("到期日期") > Date.Today Then
Dim tp As TimeSpan = cdate(e.DataRow("到期日期")) - Date.today
e.text = tp.TotalDays & "天到期"
End If
End If
End If
End If
End If
-- 发布时间：2023/6/5 0:22:00
--
\'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天前，到期提示列提示还有多长时间到期，"当前日期"=到期日期，到期提示列提示到期，否则，到期提示列提示延期，
-- 发布时间：2023/6/5 8:28:00
--
请上传实例说明
-- 发布时间：2023/6/5 12:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:样式 - 副本.zip |
-- 发布时间：2023/6/5 13:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:样式 - 副本.zip |