主题：请教版主获取网页数据项目的问题

http://youjia.chemcp.com/YuanYouJiaGe.asp

想获得油价表格中的数据并保存到“国际市场油价数据表”中

此主题相关图片如下：qq截图20170111100906.jpg

参考这个例子：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278

我做得项目总有错误提示，紧接着我的整个预览窗口都无法关闭了，只能关闭整个进程，并且获取不到任何数据，清版主指导。

此主题相关图片如下：qq截图20170111100740.jpg

项目文件：
 

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

点击浏览该文件:原油价格自动获取.foxdb

Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("http://youjia.chemcp.com/YuanYouJiaGe.asp")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim m As Integer = 0
Dim t As Table = Tables("国际市场原油价格表")
For Each elem As object In elems
    Dim i As Integer = -1
    m = m + 1
    If m > 1 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
        t.AddNew
    End If
   
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        i = i + 1
        If t.Cols(i).IsNumeric Then
            t.Current(Cols(i)) = val(tdelem.Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
            t.Current("录入日期") = Date.Today
        Else
            t.Current(Cols(i)) = tdelem.Innertext
            t.Current("录入日期") = Date.Today
        End If
    Next
Next
t.save

 获取各列的值，这样写

tdelems(0).Innertext

tdelems(1).Innertext

tdelems(2).Innertext

 那么，你合并成条件，然后find表格，不就行了？

1、请读懂代码；

2、直接合成条件查表，如果存在，就不新增数据

 你获取数据的时候，不是可以直接查找是否已经存在相同数据吗？判断名称和日期，就行。