此主题相关图片如下：11.png

请老师指点一下

更改用户代码：

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

难道是红色部分那里有问题么？

老师，找到错了，还是那句话有问题。

密码我就设置成只允许输入6为数字，类似联系方式。

老师，如果设置表里的某一行数字不允许被删除，该怎么设置呀？