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编辑过]
加好友 
发短信
Post By：2013/11/24 0:16:00 [显示全部帖子]
