Foxtable(狐表)用户栏目专家坐堂 → 求助:网页赋值后不刷新


  共有3070人关注过本帖树形打印复制链接

主题:求助:网页赋值后不刷新

帅哥哟,离线,有人找我吗?
cxmxjwlmq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:342 积分:3868 威望:0 精华:0 注册:2018/4/6 18:02:00
求助:网页赋值后不刷新  发帖心情 Post By:2021/3/17 11:13:00 [只看该作者]

 各位老师:我在一个网页上的输入框中赋值后,网页没有刷新!

 

网页局部代码如下:

<TR><TD class=page colSpan=18>共<SPAN>50</SPAN>条&nbsp;每页<SELECT id=ctl00_C_gv_ctl23_drop style="TEXT-ALIGN: left; WIDTH: 65px" name=ctl00$C$gv$ctl23$drop> <OPTION selected value=20>20</OPTION> <OPTION value=50>50</OPTION> <OPTION value=100>100</OPTION> <OPTION value=200>200</OPTION> <OPTION value=500>500</OPTION> <OPTION value=1000>1000</OPTION> <OPTION value=5000>5000</OPTION> <OPTION value=10000>10000</OPTION> <OPTION value=100000>100000</OPTION></SELECT>条&nbsp;当前第<SPAN>1</SPAN>页/共<SPAN>3</SPAN>页&nbsp;<A href="javascript:__doPostBack('ctl00$C$gv$ctl23$ctl05','')">下一页</A>&nbsp;<A href="javascript:__doPostBack('ctl00$C$gv$ctl23$ctl06','')">尾页</A>&nbsp;转到第<INPUT style="TEXT-ALIGN: right; WIDTH: 40px" value=1 name=ctl00$C$gv$ctl23$ctl07>页<INPUT type=button value=GO name=ctl00$C$gv$ctl23$ctl08></TD></TR>

 

我用赋值按钮如下代码将ctl00_C_gv_ctl23_drop赋值了:

 

Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").Basecontrol
Dim lis = web.Document.GetElementById("ctl00_C_gv").GetElementsByTagName("tr")
For i As Integer = 0 To lis.count-1
    Dim lsa = lis(i).GetElementsByTagName("SPAN")
    For Each a As object In lsa
        If a.InnerText > 20
           web.Document.GetElementById("ctl00_C_gv_ctl23_drop").SetAttribute("Value",a.InnerText)  
        End If   
    Next
Next

 

但网页没有刷新为每页50条。见下面两图的比较:

赋值前每页20条的图片:

 
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210317110721.png
图片点击可在新窗口打开查看

赋值后没有刷新成每页50条的图片:


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210317110714.png
图片点击可在新窗口打开查看

 

老师:我想达到的效果是:当赋值后,网页刷新为赋值后的每页多少条!在网上看了些帮助,说是网页中红色的部分没有触发(上传的网页局部代码缺少红色的部分)。

  
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210317111901.png
图片点击可在新窗口打开查看

请老师指教怎样改代码能达到效果!

谢谢!


[此贴子已经被作者于2021/3/17 11:20:29编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105471 积分:536340 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/17 11:57:00 [只看该作者]

Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").Basecontrol
Dim lis = web.Document.GetElementById("ctl00_C_gv_ctl23_drop").GetElementsByTagName("OPTION")
lis(0).SetAttribute("selected","false")  
lis(1).SetAttribute("selected","true")

 回到顶部
帅哥哟,离线,有人找我吗?
cxmxjwlmq
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:342 积分:3868 威望:0 精华:0 注册:2018/4/6 18:02:00
  发帖心情 Post By:2021/3/17 13:43:00 [只看该作者]

蓝老师:按照你的指教,没有达到刷新网页的效果,每页还是20行!

 

图片如下:

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210317134044.png
图片点击可在新窗口打开查看

 

还得请你费心!

谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105471 积分:536340 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/17 13:48:00 [只看该作者]

web.Document.GetElementById("ctl00_C_gv_ctl23_drop").InvokeMember("onchange")

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.htmlelement.invokemember?view=netframework-4.8

 回到顶部
帅哥哟,离线,有人找我吗?
cxmxjwlmq
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:342 积分:3868 威望:0 精华:0 注册:2018/4/6 18:02:00
  发帖心情 Post By:2021/3/17 14:21:00 [只看该作者]

可以了,谢谢!

 


 回到顶部