主题：[求助]加密，解密。写到哪里?

Enter的时候解密，Leave的时候，加密。

不用设置 e.Sender.Value = val1，直接设置当前行某列的值即可。

 你的操作有冲突，不能那样做。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 那，没办法，要不，你就判断是不是加密字符。

 根据规则，比如最后一个字符是=，或者字符的长度超过过了10个等等。你总结下规律。

 没有什么规定一定是这样。一般都是这样，你可以根据需要判断。

Dim val As String = EncryptText("1", "y","c") '加密
If val.EndsWith("=") AndAlso val.length Mod 4 = 0 AndAlso val.length >= 12 Then
    msgbox("是加密的")
End If

 如果你还能总结规律，就继续加上去。