从身份证号码中提取出生日期后，感觉格式不对，请老师教我

 

 

上传图片参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

DataColchanged事件，代码

Select Case e.DataCol.name
    Case "证件号码"
        If e.DataRow.IsNull("证件号码") Then \'身份证号码是否为空
            e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
        Else
            \'否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("证件号码"))
        End If
End Select