主题：身份证问题

身份证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

validating事件

If ValidPIN(e.sender.text) = false Then

    msgbox("身份证输入不正确")

    e.cancel = true

End If

你输入的不是正确的身份证号码，即便18位也不会处理。你离开会提示你输入错误的。

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
End If

1、请做内部数据源的例子发上来测试，别人连不上你的数据库；

2、代码肯定没问题。不对请具体说明哪里不对啊。提示不正确肯定是你身份证是错误的。