以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AddSwitch类型被选择后 如何将选择状态写入数据库  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=164165)
--  作者：cnsjroom
--  发布时间：2021/4/28 10:20:00
--  AddSwitch类型被选择后 如何将选择状态写入数据库
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
--  作者：有点蓝
--  发布时间：2021/4/28 10:55:00
--  
dim a as boolean
if e.PostValues.ContainsKey("已解决的问题或建议情况_是否涉检") andalso e.PostValues("已解决的问题或建议情况_是否涉检") = "on" then
a = true
end if
cmd1.Parameters.Add("@已解决的问题或建议情况_是否涉检", a)