以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  drawcell事件执行错误,在您修正代码之前,将暂停执行该事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81525)

--  作者:ycwk
--  发布时间:2016/2/29 16:41:00
--  drawcell事件执行错误,在您修正代码之前,将暂停执行该事件
想在表格中,超时任务那一行变为红色,将以下代码填入表格的 drawcell事件中,打开时老是提示:.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2015.12.22.1
错误所在事件:表,任务跟踪,DrawCell
详细错误信息:
调用的目标发生了异常。
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。

drawcell事件执行错误,在您修正代码之前,将暂停执行该事件


Dim d1 As Date = e.Row("提醒_最近")
Dim t As TimeSpan = Date.Now - d1

If  (e.Row.DataRow("提醒_间隔") < t.Hours )  And (e.Row.DataRow("完成_状态") <>"已完成")  And  (e.Row.DataRow("完成_状态") <>"取消" ) Then
    e.Style = "任务未完成"
End If

--  作者:ycwk
--  发布时间:2016/2/29 16:44:00
--  
提醒间隔是 表示间隔多少小时提醒一次,    且状态  不是已完成,不是取消的任务,该行刷红
--  作者:大红袍
--  发布时间:2016/2/29 16:44:00
--  

Dim d1 As Date = e.Row("提醒_最近")
Dim t As TimeSpan = Date.Now - d1

If  val(e.Row("提醒_间隔")) < t.Hours  AndAlso e.Row("完成_状态") <>"已完成" AndAlso e.Row("完成_状态") <>"取消" Then
    e.Style = "任务未完成"
End If