主题：救命，弄了几天

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.ConnectionName = "MYERP"
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("password").Value = dr("password") Then
    _UserName = UserName
  '  _UserGroup = dr("Group") 
MessageBox.show(1)
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

另外系统本身有 UserName 这个系统变量,请不要再使用相同的变量名称了.

此主题相关图片如下：上传图片请参考这里.gif

一分析调试就能知道哪里空值了.

实在不会可以把例子发出来,我帮你解决.