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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  各位高手，我这段代码有错误吗？为什么提示出错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97702)

--  作者：xhydxs
--  发布时间：2017/3/17 9:04:00
--  各位高手，我这段代码有错误吗？为什么提示出错？
\'以下是计算退休时间----------------------------
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

--  作者：有点蓝
--  发布时间：2017/3/17 9:12:00
--
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

--  作者：xhydxs
--  发布时间：2017/3/17 10:52:00
--
谢谢师傅！看来还是对语言不熟悉啊！