Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]未发现undeifned


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

主题：[求助]未发现undeifned
帅哥哟，离线，有人找我吗？
JN_LC
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：134 积分：1530 威望：0 精华：0 注册：2015/12/7 13:25:00 		[求助]未发现undeifned  发帖心情 Post By：2019/10/8 23:26:00 [只看该作者]

用代码读取网页中的表格，会出现“未发现undefined”，我猜测是表格没有，请教是怎么回事？怎样避免？
部分代码如下：
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True 
web.Navigate("http://www.***")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("table")
elems = elems(0).GetElementsByTagName("tr")

[此贴子已经被作者于2019/10/8 23:31:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2019/10/9 7:54:00 [只看该作者]

我测试没有问题：

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True 
web.Navigate("http://www.foxtable.com/userlist.htm")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("table")
elems = elems(0).GetElementsByTagName("tr")

可以判断一下：

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True 
web.Navigate("http://www.foxtable.com/")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("table")
If elems.count = 0 Then
    MessageBox.show("没有表")
Else
    elems = elems(0).GetElementsByTagName("tr")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
JN_LC
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：134 积分：1530 威望：0 精华：0 注册：2015/12/7 13:25:00 		  发帖心情 Post By：2019/10/9 8:47:00 [只看该作者]

平时运行是没有问题的，但这个网站会在某时间进行更新，如果在更新阶段的10来分钟内，会出现此问题。另外，“未发现undefined”这个问题是针对哪个语句做的提示呢？
[此贴子已经被作者于2019/10/9 8:54:15编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询