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


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

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

帅哥哟,离线,有人找我吗?
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未定义函数,怎么回事啊?

 

在线求高手解决

注,我用的是试用版


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9868 积分:57527 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/8/1 10:37:00 [只看该作者]

这个只能用代码,不能用表达式的.

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


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

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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/1 11:25:00 [只看该作者]

这个要用代码的,参考:

http://www.foxtable.net/help/topics/0625.htm

 

不过作为初学者,还是按顺序看帮助吧。

 

这是例子:

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目148.rar


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


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

谢了,学习了


 回到顶部
帅哥哟,离线,有人找我吗?
yjk1023
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/1 16:19:00 [只看该作者]

不要急,先看两遍使用指南,看三遍开发指南的编程基础和foxtable编程。


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


加好友 发短信
等级:婴狐 帖子:37 积分:368 威望:0 精华:0 注册:2011/7/4 12:23:00
  发帖心情 Post By:2011/8/1 18:50:00 [只看该作者]

学习

 回到顶部