- 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=42847)
-- 发布时间：2013/11/24 0:02:00
-- Drawcell代码错误，请帮忙看看，拜托了~~
具体代码及错误信息如下，请帮忙看看如何解决？我的目的是想根据最后更新人的角色不同，显示不同的背景颜色；
出错提示：
此主题相关图片如下：qq截图20131124000112.jpg
这里是Drawcell事件代码：
Dim dt As Date = e.Row("Last_update")
Dim dt1 As Date = e.Row("input_date")
If e.Row("last_reviser") IsNot Nothing Then
Dim yh_name As String = e.Row("last_reviser")
If Date.Now <= dt.AddHours(24) And Date.Now > dt1.AddHours(24) Then
Select Case Functions.Execute("yonghu_role",e.Row("last_reviser"))
Case "PA"
e.Style = "橙色背景"
Case "QA"
e.Style = "绿色背景"
End Select
End If
If Date.Now <= dt1.AddHours(24) Then
e.Style = "黄色背景"
End If
End If
这里是yonghu_role函数的代码：
Dim yh_fullname As String =args(0)
Dim r As DataRow
r = DataTables("User_info").Find("FullName = \'" & yh_fullname & "\'") \'取得当前用户信息
Return r("User_Roles")
-- 发布时间：2013/11/24 0:12:00
--
可能没有找到这个行（ r ）
-- 发布时间：2013/11/24 0:16:00
--
if e.row.isnull("Last_update") = false and e.Row.isnull("input_date") = false
Dim dt As Date = e.Row("Last_update")
Dim dt1 As Date = e.Row("input_date")
If e.Row.isnull("last_reviser") = false Then
Dim yh_name As String = e.Row("last_reviser")
If Date.Now <= dt.AddHours(24) And Date.Now > dt1.AddHours(24) Then
Select Case Functions.Execute("yonghu_role",e.Row("last_reviser"))
Case "PA"
e.Style = "橙色背景"
Case "QA"
e.Style = "绿色背景"
End Select
End If
End If
end if
If Date.Now <= dt1.AddHours(24) Then
e.Style = "黄色背景"
End If
Dim yh_fullname As String =args(0)
Dim r As DataRow = DataTables("User_info").Find("FullName = \'" & yh_fullname & "\'") \'取得当前用户信息
if r isnot nothing
Return r("User_Roles")
end if
[此贴子已经被作者于2013-11-24 0:19:31编辑过]
-- 发布时间：2013/11/24 8:42:00
--
因为：
http://www.foxtable.com/help/topics/2044.htm
-- 发布时间：2013/11/24 10:35:00
--
对，还要判断列名称，否则执行过于频繁！
-- 发布时间：2013/11/24 16:36:00
--
解决了，太感谢了；