主题：[讨论]ReadBirthDay代码读取身份证中的日期变成长日期，如何转换成短期日

 Select Case e.DataCol.Name
    Case "身份证号码"
        If e.NewValue Is Nothing Then
            e.DataRow("出生年月日") = Nothing
            e.DataRow("性别") = Nothing
        Else
            e.DataRow ("出生年月日") = ReadBirthDay(e.DataRow("身份证号码"))
            e.DataRow ("性别") = ReadSex(e.NewValue)
        End If
select end

 不知道咋了，我的账号没办法上传文件。