以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码编写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71228)
--  作者：jygyyl
--  发布时间：2015/7/7 17:23:00
--  [求助]代码编写
 以下代码不对，但实在不会修改，求老师指教！谢谢！
Select Case e.DataCol.Name
    Case "退休时间","到龄时间"
        Dim dt As Date = #6/29/2011#
        If e.DataRow("退休时间") Is Null And e.DataRow("到龄时间") < dt
            e.DataRow("类型代码") = L1
            e.DataRow("GS602")  = 500
        ElseIf e.DataRow("退休时间") Is Null And e.DataRow("到龄时间") >= dt
            e.DataRow("类型代码") = L2
            e.DataRow("GS602")  = 1000
        ElseIf e.DataRow("退休时间") Is Not Null And e.DataRow("退休时间") < dt
            e.DataRow("类型代码") = T1
            e.DataRow("GS602")  = 500
        ElseIf e.DataRow("退休时间") Is Not Null And e.DataRow("退休时间") >= dt
            e.DataRow("类型代码") = T2
            e.DataRow("GS602")  = 1000
    End Select
--  作者：大红袍
--  发布时间：2015/7/7 17:26:00
--  
 If e.DataRow.IsNull("退休时间") AndAlso e.DataRow("到龄时间") < dt
--  作者：大红袍
--  发布时间：2015/7/7 17:28:00
--  
Select Case e.DataCol.Name
    Case "退休时间","到龄时间"
        Dim dt As Date = #6/29/2011#
        If e.DataRow.IsNull("退休时间")
            If e.DataRow("到龄时间") < dt
                e.DataRow("类型代码") = "L1"
                e.DataRow("GS602")  = 500
            ElseIf e.DataRow("到龄时间") >= dt
                e.DataRow("类型代码") = "L2"
                e.DataRow("GS602")  = 1000
            End If
        Else
            If e.DataRow("退休时间") < dt
                e.DataRow("类型代码") = "T1"
                e.DataRow("GS602")  = 500
            ElseIf e.DataRow("退休时间") >= dt
                e.DataRow("类型代码") = "T2"
                e.DataRow("GS602")  = 1000
            End If
            End If
    End Select
--  作者：jygyyl
--  发布时间：2015/7/7 20:57:00
--  谢谢
谢谢老师指点！