datacolchanging事件
If e.datacol.name = "身份证号" Then
If e.newvalue <> nothing andalso e.newvalue.length <> 18 then
msgbox("错误")
e.cancel = true
End If