以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  让性别和年龄通过身份证号码来自动显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89496)
--  作者：约翰舒
--  发布时间：2016/8/23 11:24:00
--  让性别和年龄通过身份证号码来自动显示
老师，比如说“客户资料”表 中有三列“身份证号码”
                                             “性别”
                                              “年龄”
怎么通过身份证号来计算性别和年龄，就是让性别和年龄通过身份证号码来自动显示 
--  作者：大红袍
--  发布时间：2016/8/23 11:28:00
--  

DataColChanged事件

 

If e.DataCol.Name = "身份证号码" Then
    If e.NewValue > "" Then
        e.DataRow("性别") = ReadSex(StrToNarrow(e.NewValue))
        Dim y,m,d As Integer
        DateYMD(ReadBirthDay(StrToNarrow(e.NewValue)),Date.Today,y,m,d)
        e.DataRow("年龄") = y
    End If
End If

 
--  作者：约翰舒
--  发布时间：2016/8/23 11:37:00
--  
谢谢