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

'以下是计算退休时间----------------------------
Select Case e.DataCol.Name
    Case "职称类别" And "性别"   '如果是职称类别和性别字段发生变化
        If e.DataRow.IsNull("职称类别" And "性别") Then
            If e.DataRow.IsNull("职称类别" And "性别") 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 If
End Select
'以上是计算退休时间----------------------------
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.jpg

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

谢谢师傅！看来还是对语言不熟悉啊！

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