主题：请教狐狸爸爸：关于从身份证号码中自动提取出生年月、性别、年龄代码问题

If e .DataCol . Name = "身份证号码" Then '如果更改的是身份证号码列

    If e .DataRow . IsNull( "身份证号码" ) Then '身份证号码是否为空

        e .DataRow ( "出生日期" ) = Nothing '如果为空,则清除出生日期

        e .DataRow ( "性别") = Nothing

        e .DataRow ( "年龄") = Nothing 

    Else

        '否则从身份证号码列中提取出生日期

        e .DataRow ( "出生日期" ) = ReadBirthday ( e. DataRow ("身份证号码" ))

        e .DataRow ( "性别") = ReadSex (e .DataRow ( "身份证号码" ))

        e .DataRow ( "年龄") = Date .Today . Year - e .DataRow ( "出生日期" ).Year

    End If

End If

狐狸爸爸帮忙看看以上代码写得对不对，或者有没有更换的代码，万分感谢！