- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 身份证问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123120)
-- 发布时间：2018/8/8 11:02:00
-- 身份证问题
此主题相关图片如下：123.jpg
-- 发布时间：2018/8/8 11:06:00
--
身份证textchanged事件
Dim r As Row = Tables("表A").current
If ValidPIN(e.sender.text) Then
r("出生日期") = ReadBirthday(e.sender.text)
r("性别") = ReadSex(e.sender.text)
Dim d As Date = ReadBirthday(e.sender.text)
Dim y As Integer = d.year
If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
r("年龄") = Date.Today.Year - y
Else
r("年龄") = Date.Today.Year - y -1
End If
End If
-- 发布时间：2018/8/8 12:58:00
--
谢谢，那还请问您一下，如果身份证输入不到18位数，就会出现提示窗口 需要怎么编写代码
-- 发布时间：2018/8/8 14:26:00
--
validating事件
If ValidPIN(e.sender.text) = false Then
msgbox("身份证输入不正确")
e.cancel = true
End If
-- 发布时间：2018/8/8 16:23:00
--
此主题相关图片如下：8888.jpg
-- 发布时间：2018/8/8 16:39:00
--
你输入的不是正确的身份证号码，即便18位也不会处理。你离开会提示你输入错误的。
-- 发布时间：2018/8/8 16:50:00
--
请老师帮忙看一下，感觉输入身份证还是有些不对
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:设备管理.rar |
-- 发布时间：2018/8/8 16:57:00
--
Dim r As Row = Tables("表A").current
If ValidPIN(e.sender.text) Then
r("出生日期") = ReadBirthday(e.sender.text)
r("性别") = ReadSex(e.sender.text)
Dim d As Date = ReadBirthday(e.sender.text)
Dim y As Integer = d.year
If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
r("年龄") = Date.Today.Year - y
Else
r("年龄") = Date.Today.Year - y -1
End If
Else
r("出生日期") = Nothing
r("性别") = Nothing
r("年龄") = Nothing
End If
-- 发布时间：2018/8/8 17:19:00
--
老师，貌似还不行
-- 发布时间：2018/8/8 17:21:00
--
老师 可以了 谢谢