主题：如何获取性别？

'实现输入身份证号后自动录入出生日期及性别

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

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

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

        e.DataRow("性别") = Nothing '如果为空,则清除性别

    Else

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

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

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

    End If

End If