下面代码如何调整？
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
加好友 
发短信
Post By：2019/2/21 2:54:00 [只看该作者]
