以下是引用有点蓝在2018/9/1 11:15:00的发言:
做了什么操作?写了什么代码?
更改用户代码:
Dim userName As String = e.Form.Controls("UserName").Value
Dim userPassWord As String = e.Form.Controls("userPassword").Value
Dim userOrgan As String = e.Form.Controls("userOrgan").Value
Dim userRole As String = e.Form.Controls("userRole").Value
'' 获取登录用户单位的辅助列名称
Dim organFuZhu As String=""
Dim dr2 As DataRow
dr2 = DataTables("organList").Find("[organName] = '" & _UserOrgan & "'") '否则在单位表查找同名的单位行,将找到的行赋值给变量dr
If dr2 IsNot Nothing Then '如果找到了同名的单位行,也就是dr不是Nothing
organFuZhu = dr2("fuZhu")
End If
''在窗口上记录用户名
Dim OldUserName As String
Dim cmd As New SQLCommand
Dim Parts() As String = e.Form.Text.Split("-")
OldUserName = Parts(Parts.Length -1)
''连接数据库
cmd.C
If userName = "" Then
Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If userPassWord = "" Then
Messagebox.show("请输入密码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "更新 {user} Set [userName] = '" & userName & "'"
cmd.CommandText = cmd.CommandText & "', [userPassword] = '" & userPassword & "' Where [userName]= '" & OldUserName & "'"
If cmd.ExecuteNonQuery = 1 Then '返回1表示更改成功
If Forms("用户管理").Opened Then
With Forms("用户管理").Controls("ListBox1")
.Items(.SelectedIndex) = userName
End With
End If
Messagebox.show("更改用户成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
''设置加载条件
DataTables("user").LoadFilter = "fuZhu Like '" & organFuZhu & "%'"
DataTables("user").LoadTop = Nothing
DataTables("user").Load
Tables("user").sort = "fuZhu"
e.Form.Close
Else
Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
难道是红色部分那里有问题么?
老师,找到错了,还是那句话有问题。
[此贴子已经被作者于2018/9/1 11:38:22编辑过]