主题：[求助]代码编写

 以下代码不对，但实在不会修改，求老师指教！谢谢！

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

            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