AddSwitch类型被选择后 如何将选择状态写入数据库
当前如果该类型被选择的时候 整个数据都无法写入数据库
当该类型不做选择的时候，数据可以写入数据库
麻烦老师看看！谢谢
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加【为民办实事】台账")
.AddInput("单位","单位","text")
.AddInput("部门","部门","text")
.AddSelect("五进类型","五进类型","|走访群众|走访单位|走访企业|走访村寨|走访学校")
.AddSelect("实事类型","实事类型","|社会治安|综合治理|民生实事|法律宣传|法律监督|公益诉讼|其它")
.AddInput("时间","时间","date")
.AddInput("地点","地点","text")
.AddInput("实事名称","实事名称","text")
.AddInput("实事具体内容","实事具体内容","text")
.AddInput("办实事人员","办实事人员","text")
.AddInput("收集到的问题或建议","收集到的问题或建议","text")
.AddSwitch("收集到的问题或建议_是否涉检","收集到的问题或建议_是否涉检")
.AddInput("已解决的问题或建议情况","已解决的问题或建议情况","text")
.AddSwitch("已解决的问题或建议情况_是否涉检","已解决的问题或建议情况_是否涉检")
.AddInput("未解决的问题或建议情况","未解决的问题或建议情况","text")
.AddSwitch("未解决的问题或建议情况_是否涉检","未解决的问题或建议情况_是否涉检")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Else
Dim cmd1 As New SQLCom mand
cmd1.Connect ion Name = "ad"
cmd1.CommandText = "In sert In to 为群众办实事 (单位,部门,五进类型,实事类型,时间,地点,实事名称,实事具体内容,办实事人员,收集到的问题或建议,收集到的问题或建议_是否涉检,已解决的问题或建议情况,已解决的问题或建议情况_是否涉检,未解决的问题或建议情况,未解决的问题或建议情况_是否涉检) Values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
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.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.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
With wb.AddMsgPage("","msgpage","添加记录成功", "") '生成成功提示页
.AddButton("btn1","继续添加","wmbss.htm")
.AddButton("btn11","取消添加","default.htm")
End With
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2021/4/28 10:20:00 [只看该作者]
