主题：网页取数

改成

 

Dim wy As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim t1 As WinForm.Table = e.Form.Controls("Table1")

Dim web As System.Windows.Forms.WebBrowser = wy.basecontrol
'web.ScriptErrorsSuppressed = True
'web.Navigate(wy.Address)
'Do Until web.ReadyState = 4
'    Application.DoEvents
'Loop

Dim Cols() As String = {"序号","区域","坐落","面积","协议价格","成交日期" }

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

Dim m As Integer = 0
Dim k As Integer
For Each elem As object In elems
    Dim i As Integer = -1
    m = m + 1
    If m >=2 And  m<= elems.count  Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
    

            t1.Table.AddNew
  Dim tdelems As object =  elem.GetElementsByTagName("td")

            For Each tdelem As object In tdelems
                i = i + 1
                t1.Table.Current(Cols(i)) = tdelem.Innertext
            Next

       
    End If
Next