Foxtable(狐表)用户栏目专家坐堂 → [求助]想做个读取身份证号信息的表


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

主题:[求助]想做个读取身份证号信息的表

帅哥哟,离线,有人找我吗?
yjk1023
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
[求助]想做个读取身份证号信息的表  发帖心情 Post By:2011/8/1 10:14:00 [显示全部帖子]

想做个读取身份证号中的性别、出生日期的表,我看帮助中有ReadSex及ReadBirthDay函数,可是我在数据表中设置表达式列的时候不让用,提示ReadSex及ReadBirthDay未定义函数,怎么回事啊?

 

在线求高手解决

注,我用的是试用版


 回到顶部
帅哥哟,离线,有人找我吗?
yjk1023
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/8/1 11:00:00 [显示全部帖子]

代码如何做?能给说下步骤吗?


 回到顶部
帅哥哟,离线,有人找我吗?
yjk1023
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/8/1 11:33:00 [显示全部帖子]

谢了,学习了


 回到顶部
帅哥哟,离线,有人找我吗?
yjk1023
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:189 积分:1658 威望:0 精华:0 注册:2011/5/25 17:51:00
  发帖心情 Post By:2011/8/1 16:12:00 [显示全部帖子]

学习总结

1、了解了表属性中datacolchanged事件

2、会简单的写代码了

3、在datacolchanged事件中加了2个功能,实现了年龄和照片的自动输入

4、代码上传,请高手检查、改进

 

If e.DataCol.Name = "身份证号码" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
        e.DataRow("性别") = Nothing
        e.DataRow("年龄") = Nothing
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号码"))
        e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
         e.DataRow("年龄") = Date.Today.year - ReadBirthday(e.DataRow("身份证号码")).year
    End If
End If
If e.DataCol.name ="姓名" Then
    If e.DataRow.Isnull("姓名") Then
     e.DataRow("照片") = Nothing
    Else
    e.DataRow("照片") = e.DataRow("姓名")+"."+"JPG"
   End If
End If


 回到顶部