求助：网页中表元素引用，数值传递 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：网页中表元素引用，数值传递

共有3612人关注过本帖树形打印复制链接主题：求助：网页中表元素引用，数值传递

cxmxjwlmq

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4106 威望：0 精华：0 注册：2018/4/6 18:02:00

求助：网页中表元素引用，数值传递 发帖心情

Post By：2021/3/12 16:27:00 [只看该作者]

各位老师：

打开一个网页，想引用网页中表的元素，但编码不知道怎么写？

网页如下！

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

我的问题是:

1、查找共有多少页，找到后将每页张替换成共有多少页！如下图：

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

网页代码：

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

2、引用表头中的选择框并全选

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

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

    Dim inputs = web1.Document.GetElementsByTagName("Input")
For Each Input As object In Inputs
msgbox(input.id)
    If Input.id = "ctl00_C_gv_ctl02_cb" Then
        Input.SetAttribute("checked","checked")
    End If
Next

各位老师辛苦！请指教！

谢谢！

[此贴子已经被作者于2021/3/12 16:30:54编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/12 16:56:00 [只看该作者]

1、

Dim input = web.Document.GetElementById("ctl00_C_gv_ctl23_drop")

msgbox(Input.Parent.Innerhtml)

2、

Dim input = web.Document.GetElementById("ctl00_C_gv_ctl02_cb")

Input.SetAttribute("checked","checked")

cxmxjwlmq

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4106 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：2021/3/15 10:57:00 [只看该作者]

谢谢，蓝老师！

但网页打不开？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/15 11:15:00 [只看该作者]

这是微软的官方网站，打不开我也没有办法，换个网络呗

cxmxjwlmq

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4106 威望：0 精华：0 注册：2018/4/6 18:02:00

Post By：2021/3/15 13:33:00 [只看该作者]

蓝老师：第二个问题已解决！谢谢

现在第一个问题没有解决！

1、怎样在解析：<TD class=page colSpan=18>共50条&nbsp。。。中找到 50 这个数字，

Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").Basecontrol
Dim input = web.Document.GetElementById("ctl00_C_gv_ctl23_drop")
'Input.SetAttribute("value","50")
'msgbox(Input.Parent.Innerhtml)
Dim imgs As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("TD")
For Each ig As object In imgs
If ig.GetAttribute("colSpan") = "共50条" '通过某个属性判断是否需要点击的img标签
'ig.InvokeMember("click")
Input.SetAttribute("value","50")
End If
Next

用上面的代码找不到！

2、我用标红的代码将50传递给ID为ctl00_C_gv_ctl23_drop的框后，不能刷新新网页，是不是调用JS吗？

<TD class=page colSpan=18>共50条 每页<SELECT id=ctl00_C_gv_ctl23_drop style="TEXT-ALIGN: left; WIDTH: 65px" name=ctl00$C$gv$ctl23$drop>。。。。

请老师费心！

谢谢！

下一主题 >> << 上一主题

主题：求助：网页中表元素引用，数值传递