[求助]如何使用参数利用身份证求出年龄。（已解决）） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "身份证号码" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
    End If
End If
If e.DataCol.name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '身份证号码是否为空
        e.DataRow("年龄") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        Dim n As Integer= Date.Today.Year - e.DataRow("出生日期").Year
        If e.DataRow("出生日期").AddMonths(n*12) > Date.Today Then
            n = n -1
        End If
        e.DataRow("年龄") = n
    End If
End If

主题：[求助]如何使用参数利用身份证求出年龄。（已解决））