以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]未发现undeifned  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141700)
--  作者：JN_LC
--  发布时间：2019/10/8 23:26:00
--  [求助]未发现undeifned
用代码读取网页中的表格，会出现“未发现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编辑过]
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2019/10/9 8:47:00
--  
平时运行是没有问题的，但这个网站会在某时间进行更新，如果在更新阶段的10来分钟内，会出现此问题。另外，“未发现undefined”这个问题是针对哪个语句做的提示呢？
[此贴子已经被作者于2019/10/9 8:54:15编辑过]