专家坐堂-怎么直接获取当前网页的文本框值Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么直接获取当前网页的文本框值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125486)

--  作者：z769036165
--  发布时间：2018/9/29 10:42:00
--  怎么直接获取当前网页的文本框值

With wb.AddButtonGroup("","btg2", False)
.Add("btnNext", "提交","","test.htm?pg=" & pg + 1 & "& tx=" & **** )
End With

我想做提交按钮，直接将当前文本框输入内容通过get方式传递，不知道怎么获取当前输入的文本内容？

--  作者：有点蓝
--  发布时间：2018/9/29 11:06:00
--
这里无法直接获取输入的内容，要使用函数

js函数
function edit(pg){
var url= "test.htm?pg=" + pg + "&tx=" +  document.getElementById("某文本框id").value;
   location=url;
}

狐表代码
.Add("btnNext", "提交","button" ).Attribute = "onclick=""edit(\'" & pg+1 & "\')"""

建议还是使用ajex，get参数长度是有限制的

http://www.foxtable.com/mobilehelp/scr/0103.htm

--  作者：z769036165
--  发布时间：2018/9/29 11:07:00
--
另外有没有办法直接用post进行传递呢？

--  作者：有点蓝
--  发布时间：2018/9/29 11:09:00
--
http://www.foxtable.com/mobilehelp/scr/0099.htm

--  作者：z769036165
--  发布时间：2018/10/12 22:24:00
--
研究了还是有点不太清楚怎么处理这样的方式
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1)
End With

With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","","test2.htm").Attribute= "on click= \'my()\'"
End With

function my(){
var result = submitAjaxFileds(\'test1.htm\',\'\',\'tx2\',false);
document.getElementById("tx2").value = result;
}

问题出现在红色字体部分，如果有跳转的话，js函数的数据就过不来，只在原页面显示。

[此贴子已经被作者于2018/10/12 22:24:40编辑过]

--  作者：有点蓝
--  发布时间：2018/10/12 22:53:00
--
.Add("btnNext", "下一页","button").Attribute= "on click= \'my()\'"

--  作者：z769036165
--  发布时间：2018/10/13 8:17:00
--
我是需要点这个button按钮跳转到其他网址，然后将原网址的一个文本框内容直接填入到新网址的一个文本框中。

--  作者：z769036165
--  发布时间：2018/10/13 8:21:00
--

Select Case e.Path
Case "test.htm"
Dim wb As New weui \'定义一个基于weui框架的网页生成器
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","查询订单")
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1)
End With
End With
With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","","test2.htm").Attribute= "oncli ck= \'my()\'"
End With
wb.AppendHTML("<script src=\'./lib/ces.js\'></script>")
e.WriteString(wb.Build) \'生成网页
Case "test2.htm"
Dim wb As New weui \'定义一个基于weui框架的网页生成器
wb.AddForm("","form1","test2.htm")
With wb.AddInputGroup("form1","ipg1","查询订单")
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1)
End With
End With
With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","","test.htm").Attribute= "on click= \'my()\'"
End With
wb.AppendHTML("<script src=\'./lib/ces.js\'></script>")
e.WriteString(wb.Build) \'生成网页
Case "test1.htm"
e.WriteString(e.Values("tx2") +1)
End Select

像在test.htm中tx2中输入，然后点下一页按钮，跳转到test2.htm中，将test.htm中tx2的内容，填入到test2.htm的txt2中。

[此贴子已经被作者于2018/10/13 8:21:06编辑过]

--  作者：有点蓝
--  发布时间：2018/10/13 8:49:00
--

test1.htm网页代码

With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","button").Attribute= "onclick= \'my()\'"
End With

Function my(){
location="test2.htm?tx2=" + document.getElementById("tx2").value;
}

test2.htm网页代码
……
With wb.AddInputGroup("form1","ipg1","查询订单")
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1).Value = e.GetValues("tx2")
End With
End With
……

--  作者：z769036165
--  发布时间：2018/10/13 9:15:00
--
这个能理解，之前就告诉了这种方法，我看到建议用ajex的方法，就想用ajex的方法，结果就不知道怎么用了？