以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页代码出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131243)
--  作者：ZJZK2018
--  发布时间：2019/2/21 2:54:00
--  网页代码出错
下面代码如何调整？
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed  = True
\'web.Navigate(blwz)
web.Navigate("http://new.zmctc.com/zjgcjy/infodetail/?infoid=c7c2a6b0-f798-41d3-ab04-728fd726519dJ085&categoryNum=004004001")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("tblInfo").GetElementsByTagName("table")(0) IsNot Nothing
    Application.DoEvents   \'绘制控件的代码即刻生效
Loop

Dim elems As object = web.Document.GetElementById("tblInfo").GetElementsByTagName("table")(0).GetElementsByTagName("tr")
elems = web.Document.GetElementById("tblInfo").GetElementsByTagName("table")(0).GetElementsByTagName("tr")(1)
\'For Each elem As object In elems
\'msgbox(elem.InnerText)
\'Next
For i As Integer = 0 To elems.Count - 1
    \'dtb.AddDef(elems(i).InnerText, Gettype(String), 250)
    msgbox(elems(i).InnerText)
Next

错误提示：


图片点击可在新窗口打开查看此主题相关图片如下：5555.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/2/21 8:42:00
--  
Dim elems As object = web.Document.GetElementById("tblInfo").GetElementsByTagName("table")(0).GetElementsByTagName("tr")(1).GetElementsByTagName("td")
For i As Integer = 0 To elems.Count - 1
    \'dtb.AddDef(elems(i).InnerText, Gettype(String), 250)
    msgbox(elems(i).InnerText)
Next