- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于AfterLoad (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104723)
-- 发布时间：2017/8/3 18:09:00
-- [求助]关于AfterLoad
If e.DataRow.IsNull("合同终止日") = False
If e.DataRow("合同终止日") <= Date.Today Then
e.DataRow("合同状态") = "合同已到期"
ElseIf e.DataRow("合同终止日") < Date.Today.AddDays(30) And e.DataRow("合同终止日") > Date.Today Then
e.DataRow("合同状态") = "合同将到期"
End If
End If
在AfterLoad里写上面的代码，提示错误
此主题相关图片如下：qq图片20170803180851.png
-- 发布时间：2017/8/3 21:26:00
--
你要写到表格的
Dim cr As Row = Tables("表A").current
If cr.IsNull("合同终止日") = False
If cr("合同终止日") <= Date.Today Then
cr("合同状态") = "合同已到期"
ElseIf cr("合同终止日") < Date.Today.AddDays(30) And cr("合同终止日") > Date.Today Then
cr("合同状态") = "合同将到期"
End If
End If
[此贴子已经被作者于2017/8/3 21:26:47编辑过]
-- 发布时间：2017/8/4 10:08:00
--
在DataColChanged事件中，
上面这个条件应如何写
-- 发布时间：2017/8/4 10:46:00
--
回复3楼，无法直接获取 e.Style 的。
你drawcell事件怎么写的？判断逻辑怎么判断的？那么你的datacolchanged事件也要同样判断。