在输入带有“X”身份证号码时，Select Case e.DataCol.Name
Case "身份证号"
If e.NewValue >"" Then
If ValidPIN(e.NewValue) = False
MessageBox.show("身份证号码有误,请重新输入","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.warning)
Else
End If
End If
End Select
用validpin进行验证，但总是报错
Select Case e.DataCol.Name
Case "身份证号"
If e.NewValue >"" Then
If (e.NewValue) = False
MessageBox.show("身份证号码有误,请重新输入","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.warning)
Else
End If
End If
End Select
例如下面身份证号码：
32092419810818291x
录入时会报错
但将其改成大写X，就正常
能否请详解一下ValidPIN的原理？这样便于我们进一步深入编程
加好友 
发短信
Post By：2016/6/12 9:28:00 [只看该作者]
