以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮修改代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82499)
--  作者：万才理
--  发布时间：2016/3/18 22:37:00
--  请帮修改代码
请帮修改以下代码：
If e.Col.Name = "签收_领取" Then
    If e.Row("签收_领取") = False Then
        e.Style = "到期未领取"
    End If
    If e.Col.Name = "签收_时限" Then
        If e.Row.IsNull("签收_时限") = False
            If e.Row("签收_时限") < Date.Now() Then
                e.Style = "到期未领取"
            End If
        End If
    End If
End If
谢谢！！
--  作者：9602084
--  发布时间：2016/3/18 22:57:00
--  
Select Case e.Col.name
    Case  "签收_领取"
        If e.Row("签收_领取") = False Then
            e.Style = "到期未领取"
        End If
    Case "签收_时限"
        If e.Row.IsNull("签收_时限") = False AndAlso e.Row("签收_时限") < Date.Now() Then
            e.Style = "到期未领取"
        End If
End Select
[此贴子已经被作者于2016/3/18 22:57:37编辑过]