移动开发如何将值传递到下一页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，您好。

需要使用选择的日期，用于获取需要的数据，如果将 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编辑过]

老师，我已经知道这个固定值，能否传递到下一页？

下面的代码，无法传递。

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)

...

.Add("btnNext", "下一页","","./ee.htm?page=" & page + 1 & "&tp=" & str)

老师，您好。

现在我想获取用户点击了哪个按键，要怎么传递值过去？

用“同意”可以进行到下一步。

用“同意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

Else

Dim str As String = e.GetValues("tp") '获取传递过来的值，以判断用户点了哪个按键

msgbox(str)

****

End If

e.WriteString(wb.Build) '生成网页

[此贴子已经被作者于2017/12/9 11:25:17编辑过]

再加一个参数呗

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

老师，d 加进去要怎么来用，不懂。

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

而不是 "else“ 后面的代码。

If e.PostValues.Count = 0 Then这个是判断已经提交的数据，如果表单没有填写数据，没有任何可以提交的数据

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

Dim d As Integer = e.GetValues("d")

If e.PostValues.Count = 0 andalso d=0 Then

主题：移动开发 如何将值传递到下一页

主题：移动开发如何将值传递到下一页