为什么修改后数据无法在后台更新呢?麻烦老师看看红色部分代码是否有误!谢谢
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim vals As String
Dim cmd111 As New SQ LCommand
cmd111.Connectio nName = "智慧党建" '记得设置数据源名称
cmd111.Comman dText = "Se lect * From {用户表} "
Dim dt As DataTable = cmd111.ExecuteReader
Dim dr As DataRow=dt.Find("单位名称='" & e.Cookies("单位名称") & "'and 姓名='" & e.Cookies("姓名") & "'")
If Functions.Execute("yanzheng",e) = 1 '获取验证不能使用异步函数,必须等待并获取验证结果
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","账户信息修改"," 【宣传综合系统】")
wb.AddForm("","form1","userxiugai.htm")
wb.AddTopTips("","toptip1","请输入单位名称和部门名称!")
With wb.AddInputGroup("form1","ipg1","内容信息")
If dr IsNot Nothing Then
.AddInput("单位名称","单位名称*","text").Placeholder =dr("单位名称")
.AddInput("所在部门","所在部门*","text").Placeholder =dr("所在部门")
.AddInput("职务","职务*","text").Placeholder =dr("职务")
.AddInput("姓名","姓名*","text").Placeholder =dr("姓名")
.AddInput("电话","电话*","text").Placeholder =dr("电话")
.AddInput("邮件","邮件*","text").Placeholder =dr("邮件")
.AddInput("密码","密码*","text").Placeholder =dr("密码")
End If
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定更新", "submit")
.Add("btn2", "取消更新", "submit").FormAction = "default.htm"
End With
e.WriteString(wb.Build) '生成网页
Else
Dim cmd1 As New SQLCommand
cmd1.ConnectionN ame = "智慧党建"
'cmd1.CommandText = "Insert Into 用户表(单位名称,所在部门,职务,姓名,电话,邮件,密码) Values(?,?,?,?,?,?,?)"
cmd1.CommandText = "UPD ATE 用户表 SET (所在部门,职务,电话,邮件,密码) Values(?,?,?,?,?) WHERE 单位名称='" & e.Cookies("单位名称") & "'and 姓名='" & e.Cookies("姓名") & "'"
cmd1.Parameters.Add("@所在部门", e.PostValues("所在部门"))
cmd1.Parameters.Add("@职务", e.PostValues("职务"))
cmd1.Parameters.Add("@电话", e.PostValues("电话"))
cmd1.Parameters.Add("@邮件", e.PostValues("邮件"))
cmd1.Parameters.Add("@密码", e.PostValues("密码"))
cmd1.ExecuteNonQuery
DataTables("用户表").LoadFilter = ""
DataTables("用户表").Load()
With wb.AddMsgPage("","msgpage","更新用户信息成功", "感谢支持,请点【登录系统】按钮登录使用,默认密码666666") '生成成功提示页
'.AddButton("btn1","继续添加","qnxctj.htm")
.AddButton("btn11","登录系统","default.htm")
End With
e.WriteString(wb.Build)
End If
End If