以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页退出，还是提交了！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157959)
--  作者：foxtablefanse
--  发布时间：2020/11/3 16:48:00
--  网页退出，还是提交了！
本想在点击退出回到主页，测试发现在点击退出时，提示月份不能为空，说明提交了，哪里写错了？？？

\'劳保登记
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
           
    Case "addlaobao.htm" \'添加页
        wb.Title="劳保领取"
        wb.AddForm("","form1","laobaohandle.htm") \'指定接收表单数据的的页面为handle.htm
        With wb.AddInputGroup("form1","ipg1","新增领用")
            .AddInput("姓名","姓名:","text").Value=e.Cookies("uname")
            .AddSelect("名称","名称:","手套|雨衣|水鞋|安全帽")
            .AddSelect("月份","月份:","|1月|2月|3月|4月|5月|6月|7月|8月|9月|10月|11月|12月")
            .AddInput("数量","数量:","number")
            .AddSelect("单位","单位:","双|件|顶")
            With .AddInput("日期","日期","datetime-local")
                .Value = Format(Date.Now,"yyyy-MM-ddTHH:mm") \'留意一下这个格式,日期和时间之间用字母T隔开
                .Readonly = True
            End With
            .AddInput("领取","领取:","text").Value=e.Cookies("uname")
            .AddSelect("审批人","审批人:","向**|李**|黄**|周**")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "提交", "submit")
            .Add("btnexit","退出").Attribute="on  click=\'location=""index.htm""\'"
        End With
        e.WriteString(wb.Build)
        
    Case "laobaohandle.htm" \'提交页
        wb.Title="提示"
        Dim nms() As String = {"姓名","名称","月份","数量","单位","日期","领取","审批人"}
        Dim bts() As String={"姓名","名称","月份","数量","日期","领取"} \'必填项目
        
        For Each  bt As String In  bts
            If e.PostValues.ContainsKey(bt) = False Then \'生成错误提示页
                With wb.AddMsgPage("","msgpage","增加失败", bt & "列不能为空!")
                    .icon = "Warn" \'改变图标
                    .AddButton("btn1","返回").Attribute = "on  click=\'location=""index.htm""\'"
                    
                End With
                e.WriteString(wb.Build)
                Return False \'必须返回
            End If
        Next
             ......
             ......
        With wb.AddMsgPage("","msgpage","增加成功", "") \'生成成功提示页
            .AddButton("btn1","继续增加","addlaobao.htm")
            .AddButton("btn2","查看记录","laobaolist.htm")
            .AddButton("btn3","退出","index.htm")
        End With \'返回增加成功消息
        e.WriteString(wb.Build) \'生成网页
        
End Select
[此贴子已经被作者于2020/11/3 16:50:43编辑过]
--  作者：有点蓝
--  发布时间：2020/11/3 17:05:00
--  
.Add("btnexit","退出","button").Attribute="on  click=\'location=""index.htm""\'"
--  作者：有点蓝
--  发布时间：2020/11/3 17:06:00
--  
.Add("btnexit","退出","","index.htm")
--  作者：foxtablefanse
--  发布时间：2020/11/3 17:52:00
--  
明白了，谢谢两位！