各位高手，我这段代码有错误吗？为什么提示出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "职称类别","性别"   '如果是职称类别和性别字段发生变化
        If e.DataRow.IsNull("职称类别") OrElse e.DataRow.IsNull( "性别") Then '
            e.DataRow("退休时间") = Nothing
        Else
            If e.DataRow("职称类别") = "专技" Then
                If e.DataRow("性别") = "男" Then
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60)
                Else
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(55)
                End If
            End If
            If e.DataRow("职称类别") = "管理" Then
                If e.DataRow("性别") = "男" Then
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60)
                Else
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(55)
                End If
            End If
            If e.DataRow("职称类别") = "工勤" Then
                If e.DataRow("性别") = "男" Then
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(60)
                Else
                    e.DataRow("退休时间") = e.DataRow("出生日期").AddYears(50)
                End If
            End If
        End If
End Select

主题：各位高手，我这段代码有错误吗？为什么提示出错？