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

 各位老师：我在一个网页上的输入框中赋值后，网页没有刷新！

 

网页局部代码如下：

<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

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

谢谢！

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

 

图片如下：

 

此主题相关图片如下：微信图片_20210317134044.png

 

还得请你费心！

谢谢！

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

可以了，谢谢！