DataParse 被触发了两次导致的。
static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptimeIf sp.TotalSeconds <= 1 Then e.value = e.textElse ptime = Date.now If e.Value IsNot Nothing Then e.Value = EncryptText(e.Value, "123", "123") End IfEnd If