修改功能的确定按钮的click事件代码如下:
Dim UserName As String = e.Form.Controls("UserName").Value
Dim userdwmc As String = e.Form.Controls("userdwmc").value
Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim PassWord As String = e.Form.Controls("PassWord").Value
Dim lst As WinForm.Table = Forms("用户管理").Controls("Table1")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Conne ctio n Name = "cwgl"
If UserName = "" OrElse Userdwmc = "" OrElse UserGroup = "" OrElse password = "" Then
Messagebox.show("请输入用户名,单位名称,用户角色和用户密码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
If Forms("用户管理").Opened Then
Dim Result As DialogResult
Result = MessageBox.Show("您真的要修改这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
cmd.CommandText = "Upda te {Users} Set [Name] = '" & UserName & "',[dwmc] = '" & Userdwmc & "',[Group] ='" & UserGroup
cmd.CommandText = cmd.CommandText & "', [Password] = '" & Password & "' Where [yhbm]= '" & lst.Table.Current("用户信息_用户账号") & "'"
If cmd.ExecuteNonQuery = 1 Then '返回1表示更改成功
cmd.CommandText = "SELECT * Fro m {Users}"
dt = cmd.ExecuteReader()
Dim bd1 As New GroupTableBuilder("统计表1", dt)
bd1.Groups.AddDef("yhbm","用户信息_用户账号") '根据根据用户账号分组
bd1.Groups.AddDef("name","用户信息_用户姓名") '根据用户姓名分组
bd1.Groups.AddDef("dwmc","用户信息_所属部门") '根据所属部门分组
bd1.Groups.AddDef("group","用户信息_用户角色") '根据用户角色分组
Tables("用户管理_Table1").DataSource = bd1.BuildDataSource()
Tables("用户管理_table1").AutoSizeCols() '设置自动列宽
For Each dr As DataRow In DataTables("users").Select("[yhbm] = '"& lst.Table.Current("用户信息_用户账号") &"'")
dr("name") = lst.Table.Current("用户信息_用户姓名")
dr("dwmc") = lst.Table.Current("用户信息_所属部门")
dr("group") = lst.Table.Current("用户信息_用户角色")
dr("password") = lst.Table.Current("password")
Next
Messagebox.show("修改成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Form.Close
Else
Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
End If
End If
End If
提示错误信息,列“password”不属于表 用户管理_table1。