主题：提取自定义用户密码出错

在自定义菜单有个标准按钮“生产修改”，想要实现在单击它时先输入密码才能打开相应的窗口，密码就是当前登录用户的登录密码(根据帮助做的自定义用户)，单击事件的代码：

If e.Button.Name="生产修改" Then
    Dim psd As String
    Dim dr As DataRow = DataTables("Users").Find("Name = '" & UserName & "'")
    InputValue(psd,"验证","请输入密码")
    If psd = dr("Password") Then
        Forms("生产修改").Open()
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

可是在输完密码点击确定后却出现下面的报错，是怎么回事？

 

此主题相关图片如下：00000.jpg

代码改一下


If e.Button.Name="生产修改" Then
    Dim psd As String
    Dim dr As DataRow = DataTables("Users").Find("Name = '" & UserName & "'")
    If dr Is Nothing Then
        msgbox("不存在这个用户")
    Else
        InputValue(psd,"验证","请输入密码")
        If psd = dr("Password") Then
            Forms("生产修改").Open()
        Else
            Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If

谢谢了，用你的代码试了一下，结果直接弹出对话框：不存在这个用户。

后来仔细检查才发现原来是引用的登录用户名错了，应该为：

Dim dr As DataRow = DataTables("Users").Find("Name = '" & _UserName & "'")