下面代码出错，如何调整？谢谢
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.hzctc.cn/OpenBidRecord/Index?id=36177CC9-5F91-473F-84E6-A2EFA35D6DD9&tenderID=969B1A8D-1A57-4A21-864F-A5E98F8288FB&ModuleID=486")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
'取数据
Dim Cols() As String = {"序号","投标企业","总监姓名","总报价","质量标准","中标工期","开标情况备注"}
Dim elems As object = web.Document.GetElementsByTagName("table1")(1).GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
Dim i As Integer = -1
m = m + 1
If m > 10 Then '因为网页的表格有标题,如果不判断,就会增加出一个空行
Tables("开标标录").AddNew
End If
Dim tdelems As object = elem.GetElementsByTagName("td")
For Each tdelem As object In tdelems
i = i + 1
Tables("开标标录").Current(Cols(i)) = tdelem.Innertext
'Tables("开标标录").Current("录入时间") = Date.Now
Next
Next
Tables("开标标录").save
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.7.23.1
错误所在事件：窗口,网页数据抓取,Button1,Click
详细错误信息：
“1”的值对于“index”无效。“index”应介于 0 和 -1 之间。
参数名: index
加好友 
发短信
Post By：2018/7/20 20:49:00 [只看该作者]
此主题相关图片如下：8888.png
