以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动开发 如何将值传递到下一页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104460)
--  作者：qwz405
--  发布时间：2017/7/29 15:56:00
--  移动开发 如何将值传递到下一页
老师，您好。

需要使用选择的日期，用于获取需要的数据，如果将 dt 值传递到下一页？

    With wb.AddInputGroup("","ipg1","")
        .AddInput("dt","查询日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
    End With
    
    With wb.AddButtonGroup("","btg1",False)
        .Add("btn1","人数","","./aa.htm")
        .Add("btn2","姓名","","./bb.htm")
        .Add("btn3","返回","","./cc.htm")
    End With
[此贴子已经被作者于2017/7/29 15:58:44编辑过]
--  作者：有点蓝
--  发布时间：2017/7/29 16:21:00
--  
提交表单：http://www.foxtable.com/mobilehelp/scr/0055.htm
--  作者：qwz405
--  发布时间：2017/8/1 10:38:00
--  
老师，我已经知道这个固定值，能否传递到下一页？
下面的代码，无法传递。


Dim str As String = e.GetValues("tp")  

 .....
 .Add("btnPrev", "上一页","","./ee.htm?page=" & page - 1 &"tp="&str)
......
.Add("btnNext", "下一页","","./ee.htm?page=" & page + 1 &"tp="&str)
...
--  作者：有点甜
--  发布时间：2017/8/1 10:40:00
--  
.Add("btnNext", "下一页","","./ee.htm?page=" & page + 1 & "&tp=" & str)
--  作者：qwz405
--  发布时间：2017/12/9 11:22:00
--  
老师，您好。
现在我想获取用户点击了哪个按键，要怎么传递值过去？

用“同意”可以进行到下一步。
用“同意1”or“同意2"，则还是回到第一步。

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddPageTitle("","123","***","***")

Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")

If e.PostValues.Count = 0 Then
    wb.AddForm("","form1","./ff.htm?key=" & PrimaryKey &  "&page=" & PageNumber)
    ***
    
    With wb.AddButtonGroup("form1","btg1",False)
        With .Add("btn1","同意","submit")
            .Kind = 2
            .Attribute= ""      \'调用js函数上传
        End With
        
        Dim tp As Integer
        With .Add("btn1","同意1","submit","./ff.htm?key=" & PrimaryKey &  "&page=" & PageNumber & "&tp= 1")
            .Kind = 2
            .Attribute= ""      \'调用js函数上传
        End With
        With .Add("btn1","同意2","button","./ff.htm?key=" & PrimaryKey &  "&page=" & PageNumber & "&tp= 2")
            .Kind = 2
            .Attribute= ""      \'调用js函数上传
        End With
    End With
    
Else
    Dim str As String = e.GetValues("tp")    \'获取传递过来的值，以判断用户点了哪个按键
    msgbox(str)
    
    ****
End If


e.WriteString(wb.Build) \'生成网页
[此贴子已经被作者于2017/12/9 11:25:17编辑过]
--  作者：有点蓝
--  发布时间：2017/12/9 11:26:00
--  
再加一个参数呗

With .Add("btn1","同意1","submit","./ff.htm?key=" & PrimaryKey &  "&page=" & PageNumber & "&tp= 1&d=1")
            .Kind = 2
            .Attribute= ""      \'调用js函数上传
        End With
        With .Add("btn1","同意2","button","./ff.htm?key=" & PrimaryKey &  "&page=" & PageNumber & "&tp= 2&d=2")
            .Kind = 2
            .Attribute= ""      \'调用js函数上传
        End With
--  作者：qwz405
--  发布时间：2017/12/9 11:32:00
--  
老师，d 加进去要怎么来用，不懂。

现在用”同意1"或"同意2",还是会运行：”If e.PostValues.Count = 0 Then“。。后面的代码。

而不是 "else“ 后面的代码。
--  作者：有点蓝
--  发布时间：2017/12/9 11:53:00
--  
If e.PostValues.Count = 0 Then这个是判断已经提交的数据，如果表单没有填写数据，没有任何可以提交的数据

如果没有填写表单，也想跳转，加一个判断

Dim d As Integer = e.GetValues("d")
If e.PostValues.Count = 0 andalso d=0 Then