dr1 = dt.DataRows(0)
Dim pw As String = e.Form.Controls("PassWord").Value
Dim s As String = dr1("Password")
Dim pw2 As String = DecryptText(s,"a23","op#")
If pw = pw2 Then
_UserName = UserName
_UserGroup = dr1("Group")
_UserRoles = dr1("Roles")
If e.Form.Controls("CheckBox记住用户名").Checked = True Then
SaveConfigValue("最后用户", _UserName & Vbcrlf & GetConfigValue("最后用户", "").Replace(_UserName,""))
Else
SaveConfigValue("最后用户", GetConfigValue("最后用户", "").Replace(_UserName,""))
End If
e.Form.Close
Else
Messagebox.show("密码错误!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
上述代码，当密码正确的时候没有错误提示，但密码错误点击确定的时候出现下面错误提示，怎么解决
此主题相关图片如下：微信图片_20240627120904.png
[此贴子已经被作者于2024/6/27 12:12:46编辑过]
加好友 
发短信
Post By：2024/6/27 12:12:00 [显示全部帖子]
