主题：[求助]自定义用户管理修改密码问题（已解决）

显示一下合成的SQL语句，你就知道原因了：

cmd.CommandText = "Update {Users} Set [Name] = '" & UserName & "',[Group] = '" & UserGroup
cmd.CommandText = cmd.CommandText & "', [Password] = '" & Password & "' Where [Name]= '" & OldUserName & "'"
MessageBox.show(cmd.commandtext)

你前面的代码：

Dim Parts() As String = e.Form.Text.Split("-"c)
OldUserName = Parts(Parts.Length -1)

当用户名为01-1的时候，OldUserName = 1，使得你合成的语句的条件为：

Where [Name] = ‘1’

可是表中只有名为01-1的用户，并没有名为1的用户，所以出错是必然的。

我不明白你为什么要这么写：

Dim Parts() As String = e.Form.Text.Split("-"c)
OldUserName = Parts(Parts.Length -1)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目120.rar