Dim c As Row = Tables("保存").Current Dim code As String= c("注册码") If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确 Messagebox.Show("注册成功!") c("注册标识")="y" Forms("注册").Close() Else Messagebox.Show("注册码不正确!") c("注册标识")="n" End If