主题：[分享]身份证性别拼音案例-边学边做

-边学边做---
小爪-身份证性别拼音案例

主要功能：根据姓名和身份证号码会自动刷新
性别
出生日期
中文日期
姓名拼音
状态栏介绍

很感谢mr725的提示：
我已经修改好重新上传


1.保存时提示错误 原来是黄蓉的出生0023年不对 我改1823 年 系统就不提示错误了

2.正如mr725说的： 出生日期是字符型，改为日期型 就可以了

3.添加了农历中文的就用字符型，如果要数字的日期 请改为日期时间型
同样代码改为：
 Dim ln As New Lunar(e.DataRow("出生日期"))
             e.DataRow("农历")= ln.Lunardate  就可以了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小爪-身份证性别拼音案例.rar

源码：
Select Case e.DataCol.Name
    Case "姓名"
        If e.DataRow.IsNull("姓名") Then 
            e.DataRow("拼音")= nothing
        else
            e.DataRow("拼音")= getpy(e.DataRow("姓名"))
        End If
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
            e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
            e.DataRow("中文日期")=nothing
            e.DataRow("性别") = Nothing
            e.DataRow("农历")=nothing
        Else
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("中文日期")=CUdate(e.DataRow("出生日期"))
            e.DataRow("性别")=ReadSex(e.DataRow("身份证号"))
            Dim ln As New Lunar(e.DataRow("出生日期"))
             e.DataRow("农历")= CUdate(ln.Lunardate)
        End If
End Select



select case maintable.name
case "身份证"
StatusBar.Message1= "本表的案例是1根据姓名生成拼音2根据身份证生成性别和出生日期和中文日期"
case else
StatusBar.Message1= ""
end select

谢谢 ！已经修改

    添加了农历中文