下面这个代码用在修改界面的确定按钮 用户界面我使用的是table1控件,点确定的是,显示修改用户失败.
Dim UserName As String = e.Form.Controls("姓名").Value
Dim UserGroup As String = e.Form.Controls("用户组").Value
Dim PassWord As String = e.Form.Controls("密码").Value
Dim OldUserName As String
Dim Parts() As String = e.Form.Text.Split("-"c)
OldUserName = Parts(Parts.Length -1)
If UserName = "" OrElse UserGroup = "" Then
Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
Dim dr As DataRow = _UserTable.SQLFind("[Name]= '" & OldUserName & "'")
If dr IsNot Nothing Then
dr("Name") = UserName
dr("Group") = UserGroup
dr("Password") = PassWord
dr.Save()
If Forms("学员信息表窗口").Opened Then
With Forms("学员信息表窗口").Controls("ListBox1")
.Items(.SelectedIndex) = UserName
End With
End If
e.Form.Close
Else
Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
这条语句是什么意思,看不明白.感觉是这个语句出来问题.
Dim Parts() As String = e.Form.Text.Split("-"c)