主题：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

End If

Dim yh_fullname As String =args(0)

Dim r As DataRow

r = DataTables("User_info").Find("FullName = '" & yh_fullname & "'") '取得当前用户信息

Return r("User_Roles")

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