主题：测试时遇到一个错误

此主题相关图片如下：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

 

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

 

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

密码如果有特殊符号，建议使用参数化这种方式：http://www.foxtable.com/webhelp/scr/3266.htm

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

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

参考：http://www.foxtable.com/webhelp/scr/2258.htm