重写解密函数,在全局代码加入这句代码
Public function DecryptText(s As String, m1 As String, m2 As String) As Stringtry Return Foxtable.DecryptText(s,m1,m2)catch ex As Exception Return NothingEnd tryEnd Function