以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获取性别？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112922)
--  作者：yvhusrwg
--  发布时间：2018/1/5 11:16:00
--  如何获取性别？
我在人员信息表中有一列是“”身份证号“”，如何在“”性别“”一列中从身份证号中获得性别，用函数readsex()如何写表达式？如果用代码写如何获取？
--  作者：188802386
--  发布时间：2018/1/5 11:20:00
--  

\'实现输入身份证号后自动录入出生日期及性别

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
--  作者：yvhusrwg
--  发布时间：2018/1/5 11:48:00
--  
感谢，代码如何放置？
--  作者：有点甜
--  发布时间：2018/1/5 11:59:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105454&skin=0

 
--  作者：yvhusrwg
--  发布时间：2018/1/5 12:50:00
--  
感谢两位楼主，调试成功。好开心。