Foxtable(狐表)用户栏目专家坐堂 → 区分按钮


  共有2066人关注过本帖树形打印复制链接

主题:区分按钮

帅哥哟,离线,有人找我吗?
yetle
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
区分按钮  发帖心情 Post By: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提交后,假定提交的数据都存储到数据表,如果我增加一个按钮作用是将已保存到数据表的内容审核,这个应该怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2019/10/4 15:55:00 [只看该作者]

上面的代码,不是还有按钮3和按钮4吗,不同的任务按钮,提交到不同的页面:

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

 回到顶部