[求助]DataColChanged代码? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "性别","身份类别","出生日期"
        Dim d As Date = e.DataRow("出生日期")
        If d = Nothing Then
            e.DataRow("预计退休日期") = Nothing
        Else
            If e.DataRow("性别") = "男" Then
                e.DataRow("预计退休日期") = d.AddYears(60)
            ElseIf e.DataRow("性别") = "女" Then
                If e.DataRow("身份类别") = "工人"
                    e.DataRow("预计退休日期") = d.AddYears(50)
                Else
                    e.DataRow("预计退休日期") = d.AddYears(55)
                End If
            Else
                e.DataRow("预计退休日期") = Nothing
            End If
        End If
End Select

主题：[求助]DataColChanged代码?