专家坐堂-[求助]如何获取代码和名称Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("表A").DataRows.Clear()

Dim web As New System.Windows.Forms.WebBrowser()

web.ScriptErrorsSuppressed = True

web.Navigate("http://vip.stock.finance.sina.com.cn/mkt/#sh_a")

output.Show(web.ReadyState)

output.Show(web.Document.GetElementsByTagName("table").count)

Do Until web.ReadyState <> 4 AndAlso web.Document.GetElementsByTagName("table").count > 0

Application.DoEvents

Loop

Dim trs As object = web.Document.GetElementById("list_amount_ctrl").GetElementsByTagName("a")

For Each elem As object In trs

If elem.InnerText = "80" Then

elem.InvokeMember("click")

End If

trs = web.Document.GetElementById("tbl_wrap").GetElementsByTagName("tr")

For i As Integer = 1 To trs.count-1

Dim r As Row = Tables("表A").AddNew

Dim tds = trs(i).GetElementsByTagName("td")

r("第一列") = tds(0).innerText

r("第二列") = tds(1).innerText

r("第三列") = tds(2).innerText

r("第四列") = tds(3).innerText

r("第五列") = tds(4).innerText

r("第六列") = tds(5).innerText

r("第七列") = tds(6).innerText

r("第八列") = tds(7).innerText

r("第九列") = tds(8).innerText

r("第十列") = tds(9).innerText

r("第十一列") = tds(10).innerText

r.Save()