| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 同一网页读取值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178695) |
| -- 作者：qazlinle6 -- 发布时间：2022/7/16 10:36:00 -- 同一网页读取值 同一网页 input（年） input（月） 年内容变动 For Each a月2 As String In dt.getvalues("月", "年=‘"& e.PostValues("年") &"’") 什么实现 |
| -- 作者：有点蓝 -- 发布时间：2022/7/16 10:39:00 -- 没看懂 |
| -- 作者：qazlinle6 -- 发布时间：2022/7/16 10:43:00 -- <input name=\'年\' > 获取<input name=\'年\' >值
|
| -- 作者：有点蓝 -- 发布时间：2022/7/16 10:48:00 -- 服务端就是e.PostValues("年")呀 |
| -- 作者：qazlinle6 -- 发布时间：2022/7/16 10:54:00 -- Case "销进退账目.htm" \'登录页面 wb.AddForm("", "form1", "销进退账目内容.htm") Dim a年 As String =“<select name=\'年\' ><option value=\'2021\'>2021</option><option value=\'2022\'>2022</option> </select>” For Each a月2 As String In dt.getvalues("月","年=‘"& e.PostValues("年") &"\'") 获取不到 e.PostValues("年") Next e.WriteString(wb.Build) Case "销进退账目内容.htm" \'登录页面 。。。。。。。。。。。。。。。。 |
| -- 作者：有点蓝 -- 发布时间：2022/7/16 11:03:00 -- 这时候网页还没有生成，哪来的值？ 要在前端提交数据后，服务端才能获取网页录入的值。
|
| -- 作者：qazlinle6 -- 发布时间：2022/7/16 11:08:00 -- 同网页什么提交 |
| -- 作者：有点蓝 -- 发布时间：2022/7/16 11:35:00 -- 参考：http://www.foxtable.com/mobilehelp/topics/0057.htm http://www.foxtable.com/mobilehelp/topics/0096.htm http://www.foxtable.com/mobilehelp/topics/0103.htm
|
| -- 作者：qazlinle6 -- 发布时间：2022/7/16 12:06:00 -- Case "销进退账目.htm" \'登录页面 wb.AddForm("", "form1", "销进退账目内容.htm") Dim a年 As String =“<select name=\'年\' ><option value=\'2021\' ">2021</option><option value=\'2022\' oncha。nge=""setAjax。Options(\'月\',\'getBra。nds.htm\',\'年\',false)"">2022</option> </select>” Dim a月 As String = "<input id=\'月\' name=\'月\' > </input>" wb.InsertHTML("form1", "<div style=\'width:100%;height:110px;\'> " & a年 & " " & a月 & " </div>") wb.AppendHTML("<div id=\'p1\' style=\'margin:0.1em\'></div>") \'插入一个div,用于显示服务器返回的 页面 wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件 wb.AppendHTML("<script>tongji()</script>") e.WriteString(wb.Build) Case "销进退账目内容.htm" \'登录页面 ............................ e.WriteString(wb.Build) Case "getBrands.htm" Dim pps As String = DataTables("销进退账目").GetComboListString("月", "年=\'" & e.PostValues("年") & "\'") e.WriteString(pps) End Select 月没值
[此贴子已经被作者于2022/7/16 12:06:48编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/7/16 13:39:00 -- Dim a年 As String =“<select name=\'年\' oncha。nge=""setAjax。Options(\'月\',\'getBra。nds.htm\',\'年\',false)""><option value=\'2021\' ">2021</option><option value=\'2022\' >2022</option> </select>” |