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

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

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

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

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

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

 

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

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

求高手指点啊！！

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

Dim elems As object = web.Document.GetElementById("list_elem").GetElementsByTagName("tr")

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

参考代码

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.jljsw.com:8088/JLJGPublish/corpinfo/CorpInfo.aspx?rnd=" & Rand.NextDouble)
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("tbody_CorpInfo").Innertext <> Nothing
    Application.DoEvents
Loop

'取数据
Dim Cols() As String = { "序号","企业名称","组织机构代码","所在市州","法定代表人","资质类型" }
Dim elems As object = web.Document.GetElementById("tbody_CorpInfo").GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
   
    Tables("企业列表").AddNew
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    Dim i As Integer = 0
    For Each tdelem As object In tdelems
        Tables("企业列表").Current(Cols(i)) = tdelem.Innertext
        i = i + 1
    Next
    Tables("企业列表").Current("录入日期") = Date.Today
   
Next
Tables("企业列表").save