主题：[求助]关于网页表格数据保存到狐表

按归之前的例子，自己修改了下，可是保存不过来，还会出现假死现象，只能重新启动狐表。

代码如下，请帮助检查下：

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.jljsw.com:8088/JLJGPublish/corpinfo/CorpInfo.aspx/")
Do Until web.ReadyState = 6
    Application.DoEvents
Loop

'取数据
Dim Cols() As String = { "序号","企业名称","组织机构代码","所在市州","法定代表人","资质类型" }

Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
    Dim i As Integer = -1
   
    m = m + 1
    If m > 1 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.Today 
       
    Next
Next
Tables("企业列表").save

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:网页表格数据保存到狐表表中例子.table

提示未将对象引用设置到对象的实例

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.6.1
错误所在事件：窗口,企业信息,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

为什么他的例子可以，到我这里就不行了？哪里出错误了？

求高手指点啊！！

别沉了，还没有得到解决呢

还是没有获取到网页中的内容

谢谢红袍！现在确实可以获取了，研究下到底原来的代码错在哪了

这个表分多页显示的，红袍兄能不能教我改一下，使之能把分多页显示的内容都能取下来？

速度不是很快，如果我想暂停一下，然后再继续呢？怎么设置只保存指定地区的企业信息呢？

中间有两段代码注释掉了，能帮我理解下原因吗？