Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获取性别？


  共有1828人关注过本帖树形打印复制链接

主题：如何获取性别？
帅哥哟，离线，有人找我吗？
yvhusrwg
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：244 威望：0 精华：0 注册：2017/12/27 14:30:00 		如何获取性别？  发帖心情 Post By：2018/1/5 11:16:00 [只看该作者]

我在人员信息表中有一列是“”身份证号“”，如何在“”性别“”一列中从身份证号中获得性别，用函数readsex()如何写表达式？如果用代码写如何获取？

 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4927 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：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
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：244 威望：0 精华：0 注册：2017/12/27 14:30:00 		  发帖心情 Post By：2018/1/5 11:48:00 [只看该作者]

感谢，代码如何放置？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/5 11:59:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yvhusrwg
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：21 积分：244 威望：0 精华：0 注册：2017/12/27 14:30:00 		  发帖心情 Post By：2018/1/5 12:50:00 [只看该作者]

感谢两位楼主，调试成功。好开心。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询