主题：[求助]自定义登录窗口问题

各位大狐好：

      最近参照自定义用户与管理权限做了一个登陆窗口，登陆等没有问题，只是，用户自己修改密码的时候出现这样一个现象：

      1.当我把用户信息这个表放在项目的第一个表的时候，用户点击“更改用户”的可以正常使用

      2.当我把用户信息这个表放在不是第一个的时候，就会提示用户不存在，或者别删除。

      因为用户信息我不想在登陆的时候就弹出来，毕竟不是项目的主要信息。

      请问谁遇到类似情况，或者知道这个什么原因，可以帮忙解决一下吗

 

更改用户的afterload事件是：

Dim UserName As String
Dim UserGroup As String
Dim PassWord As String
Dim cmd As New SQLCommand
Dim dt As DataTable
If Forms("数据库").Opened Then
    UserName = Forms("用户管理").Controls("ListBox1").SelectedItem
Else
    UserName = _UserName '_UserName为全局变量,用于保存当前用户名
    e.Form.Controls("UserName").Enabled = False
    e.Form.Controls("UserGroup").Enabled = False
End If
e.Form.Text = e.Form.Text & "-" & UserName
cmd.C
cmd.CommandText = "Select * From {通讯录} Where [姓名] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 1 Then
    e.Form.Controls("UserName").Value = UserName
    e.Form.Controls("UserGroup").Value = dt.DataRows(0)("用户分组")
    e.Form.Controls("PassWord").Value = dt.DataRows(0)("密码")
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If

 

 

 

 

感谢!!!

 表的位置应该是不影响数据的。

 用户不存在的话，把UserName弹出来看一下，然后查看数据表是否存在。

 MessageBox.Show(userName)

 还有就是，dt.DataRows.Count = 1这句，前提是用户名不重复才行。