直接输入网址查询会加载全部内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (3).txt

直接用127.0.0.1:32177/工资查询内容.htm查询会加载全部内容，有什么办法解决不

直接提交即可

With wb.AddButtonGroup("form1","btg1",True)

' submit

.Add("btn1", "确定","submit")

.Add("btn2","返回", "","default.htm") '退出登录

End With

多看几遍理解一下：http://www.foxtable.com/mobilehelp/topics/0113.htm，如果还是看不懂，就网上搜索学习理解

在网址里附加参数的就是get方式，如：accept.htm?id=1&page=10，使用e.getvalues获取值

在网站按钮里使用submit模式直接提交的，就是post方式，不需要在网址里添加参数，使用e.PostValues取值

可以帮我弄一下吗，我弄了一天都没有弄好

直接提交即可

With wb.AddButtonGroup("form1","btg1",True)

' submit

.Add("btn1", "确定","submit")

.Add("btn2","返回", "","default.htm") '退出登录

End With

直接提交是也可以查，可是如果单独用这个网址查就会查到全部的内容

第二个页面是依赖第一个页面的条件的，不能直接打开第二个页面，不然查询条件从哪来？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:svid_20210801_231353_1.zip

你看一下

[此贴子已经被作者于2021/8/1 23:27:24编辑过]

请上传实例说明

wb.AddForm("","form1","工资查询内容.htm")

With wb.AddInputGroup("form1","ipg1","数据筛选")

Dim bh As String = e.Cookies("username")

Dim bh2 As String = "[" & e.Cookies("username") & "]"

'Group

Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username") &"' " )

If ddr IsNot Nothing AndAlso ddr("Group") = "管理"

Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|"

sl2 = sl2.replace(bh,bh2).TrimEnd("|")

.AddSelect("product","用户姓名",sl2 )

Else

.AddSelect("product","用户姓名",bh2 )

End If

Dim sl3 As String = "" & DataTables("工资明细表").SQLGetComboListString("年") & ""

.AddSelect("product1","年",sl3 )

Dim sl4 As String = "" & DataTables("工资明细表").SQLGetComboListString("月") & ""

.AddSelect("product2","月",sl4 )

End With

改成下面这样的

sb.AppendLine("<form enctype='multipart/form-data' action='工资查询内容.htm?id=1&page=10' method='post' id='form1' name='form1'>")

sb.AppendLine("用户姓名: <input name='cp' id='cp'><br/><br/>")

sb.AppendLine("年: <input name='kh' id='kh'><br/><br/>")

sb.AppendLine("月: <input name='kh1' id='kh'><br/><br/>")

sb.AppendLine("<input type='submit' name='sumbit' id='sumbit' value='提交'>")

sb.AppendLine("<input type='reset' name='reset' id='reset' value='重置'>")

sb.AppendLine("</form>")

没看懂9楼是什么意思

主题：直接输入网址查询会加载全部内容