具体代码及错误信息如下，请帮忙看看如何解决？我的目的是想根据最后更新人的角色不同，显示不同的背景颜色；
出错提示：
此主题相关图片如下：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")
加好友 
发短信
Post By：2013/11/24 0:02:00 [显示全部帖子]
