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

 谁叫你写在datacolchanged事件。

 

 你直接在3楼的代码，查询表格数据，就行啊。

实在不会了，获取网页数据的这段代码基本看不懂，请版主直接给例子吧。

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 Cols() As String = { "名称","价格","涨跌额","涨跌幅","发布日期" }

Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim t As Table = Tables("国际市场原油价格表")

For i As Integer = 1 To elems.count-1
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim fdr As DataRow = t.DataTable.Find("名称 = '" & tdelems(0).Innertext & "' and 发布日期 = #" & tdelems(4).Innertext & "#")
    If fdr Is Nothing Then
        fdr = t.DataTable.AddNew
    End If
    For j As Integer = 0 To Cols.length-1
        If t.Cols(j).IsNumeric Then
            fdr(Cols(j)) = val(tdelems(j).Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
            fdr("录入日期") = Date.Today
        Else
            fdr(Cols(j)) = tdelems(j).Innertext
            fdr("录入日期") = Date.Today
        End If
    Next
Next
t.save

多谢版主！

版主，我调整了一下我的表格的列的顺序，

以前应该是"名称","价格","涨跌额","涨跌幅","发布日期"，现在把“发布日期”放在第一列了，错误提示如下

 

.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,国际市场原油价格窗口,Button1,Click
详细错误信息：
从类型“Double”到类型“Date”的转换无效。

 

此主题相关图片如下：表结构.png

 

代码如下，红色部分好像有问题，弹出错误提示在4之后。

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 Cols() As String = { "名称","价格","涨跌额","涨跌幅", "发布日期" }
Dim ts = web.Document.GetElementsByTagName("table")
If ts.count <= 5 Then
    MessageBox.show("网络连接失败,请检查网络设置!")
Else
    Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
    Dim t As Table = Tables("国际市场原油价格表")
    For i As Integer = 1 To elems.count-1
        Dim tdelems As object =  elems(i).GetElementsByTagName("td")
MessageBox.show("1")
        Dim fdr As DataRow = t.DataTable.Find("名称 = '" & tdelems(0).Innertext & "' and 发布日期 = #" & tdelems(4).Innertext & "#")
MessageBox.show("2")
        If fdr Is Nothing Then
            fdr = t.DataTable.AddNew
MessageBox.show("3")
        End If
        For j As Integer = 0 To Cols.length-1
            If t.Cols(j).IsNumeric Then
MessageBox.show("4")
                fdr(Cols(j)) = val(tdelems(j).Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
MessageBox.show("5")
            Else
MessageBox.show("6")
                fdr(Cols(j)) = tdelems(j).Innertext
            End If
        Next
        fdr("更新时间") = Date.Now
MessageBox.show("7")
    Next
    t.save
    Tables("国际市场原油价格表").Sort = "发布日期 DESC"
    MessageBox.show("数据更新完毕!")
End If

 调整列位置不影响数据位置，但你这句代码要改一下

 

If t.Cols(Cols(j)).IsNumeric Then

修改为：Dim Cols() As String = { "发布日期" ,"名称","价格","涨跌额","涨跌幅" }

也有如下错误：

 

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2016.6.26.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
从字符串“布伦特”到类型“Date”的转换无效。

 

项目文件如下：

 

 

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

点击浏览该文件:油价自动获取.table

删除数据录入的循环，逐一制定表格要填充的网页对应的列，问题解决了。

哦，错了，改一下代码即可

 

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 Cols() As String = {"名称","价格","涨跌额","涨跌幅","发布日期" }
Dim ts = web.Document.GetElementsByTagName("table")
If ts.count <= 5 Then
    MessageBox.show("网络连接失败,请检查网络设置!")
Else
    Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
    Dim t As Table = Tables("国际市场原油价格表")
    For i As Integer = 1 To elems.count-1
        Dim tdelems As object =  elems(i).GetElementsByTagName("td")
        Dim fdr As DataRow = t.DataTable.Find("名称 = '" & tdelems(0).Innertext & "' and 发布日期 = #" & tdelems(4).Innertext & "#")
        If fdr Is Nothing Then
            fdr = t.DataTable.AddNew
        End If
        For j As Integer = 0 To Cols.length-1
            If t.Cols(Cols(j)).IsNumeric Then
                fdr(Cols(j)) = val(tdelems(j).Innertext.replace("↓", "").replace("↑", "").replace("%", ""))
            Else
                fdr(Cols(j)) = tdelems(j).Innertext
            End If
        Next
        fdr("更新时间") = Date.Now
    Next
    t.save
    Tables("国际市场原油价格表").Sort = "发布日期 DESC"
End If

Cols(Cols(j))  和 Cols(j) 有什么不同？