以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  区分按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141565)

--  作者:yetle
--  发布时间:2019/10/4 15:08:00
--  区分按钮

Dim wb As New weui
Select
Case e.Path
    Case "input.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","input.htm")
            With wb.AddInputGroup("form1","ipg1","
数据输入")
                .AddInput("
客户","客户","text")
                .AddInput("
日期","日期","date")
                .Addinput("
产品","产品","text")
                .Addinput("
数量","数量","number")
            End With
            With wb.AddButtonGroup("form1","btngrp1",False)
                .Add("btn1", "
按钮1", "submit").Value = "btn1"
                .Add("btn2", "
按钮2", "submit").Value = "btn2"
                .Add("btn3", "
按钮3", "submit").FormAction = "accept.htm"
                .Add("btn4", "
按钮4", "submit").FormAction = "accept.htm?type=1&model=ha"


                .Add("btn5""审核""submit").Value = "btn5"
            End With
        Else
            wb.InsertHTML("
接收到的数据有:<br/>")
            For Each key As String In e.PostValues.Keys
                wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
            Next
        End If
    Case "accept.htm"
        wb.InsertHTML("
通过accept.htm接收到的数据有:<br/>")
        For Each key As String In e.PostValues.Keys
            wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
       
Next
End
Select
e
.WriteString(wb.Build)



帮助里面代码btn1和btn2提交后,假定提交的数据都存储到数据表,如果我增加一个按钮作用是将已保存到数据表的内容审核,这个应该怎么写?


--  作者:有点酸
--  发布时间:2019/10/4 15:55:00
--  
上面的代码,不是还有按钮3和按钮4吗,不同的任务按钮,提交到不同的页面:

select case e.Path
   case "input.htm"
          接收数据
   case "valid.htm"
          验证数据
end select