If e.datacol.name = "身份证号码" Then
If e.newvalue > "" AndAlso e.newvalue.length <> 18 then
msgbox("身份证不正确")
End If