主题：身份证提取日期

写在表的DataColChanged里

 '*************************
'以下代码是根据身份证自动生成生日和性别
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