专家坐堂-网页数据下载标题行出现选择框，无法下载Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网页数据下载标题行出现选择框，无法下载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158738)

--  作者：cxmxjwlmq
--  发布时间：2020/12/1 10:16:00
--  网页数据下载标题行出现选择框，无法下载

各位老师：

   我在用下面代码进行网页中数据表的下载，并用表头形成临时表的表头，但表头第一列不为空是，可以下载！

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser2").basecontrol
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("ctl00_C_gv") IsNot Nothing
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementsByTagName("div")
elems = web.Document.GetElementById("ctl00_C_gv").GetElementsByTagName("th")   \'ctl00_C_gv
Dim dtb As New DataTableBuilder("录入表")
For i As Integer = 0 To elems.count-1
    dtb.AddDef(elems(i).InnerText,Gettype(String),250)
Next
dtb.Build()
MainTable = Tables("录入表")

DataTables("表B").DataRows.Clear()
elems = web.Document.GetElementById("ctl00_C_gv").GetElementsByTagName("tr")
Dim ndr As Row
For n As Integer = 1 To elems.count - 2
    Dim tds = elems(n).getelementsbytagname("td")
                Dim dr As Row= Tables("表B").AddNew()
    ndr = Tables("录入表").AddNew()
    For tn As Integer = 0 To tds.count -1
        ndr(tn) = tds(tn).InnerText
                    dr(tn) = tds(tn).innerText
    Next
Next

但有些表表头会有个type=checkbox 选择框，便无法下载！

此主题相关图片如下：微信图片_20201201101400.png

无法下载，提示如下：

此主题相关图片如下：微信图片_20201201101406.png

请教各位老师，怎样修改代码，不管有没有选择框都可以下载！

谢谢！

--  作者：有点蓝
--  发布时间：2020/12/1 10:32:00
--
应该是有空值

Dim dtb As New DataTableBuilder("录入表")
For i As Integer = 0 To elems.count-1
msgbox(elems(i).InnerText)
if elems(i).InnerText > "" then
    dtb.AddDef(elems(i).InnerText,Gettype(String),250)
end if
Next
dtb.Build()

--  作者：cxmxjwlmq
--  发布时间：2020/12/1 13:12:00
--

蓝老师：谢谢！按照你的提示，已经可以导出表头了，但是在数据这一块还是不行！我按照你的思路，把第二段代码改成如下：

DataTables("表B").DataRows.Clear()
elems = web.Document.GetElementById("ctl00_C_gv").GetElementsByTagName("tr")
Dim ndr As Row
For n As Integer = 1 To elems.count - 2
    Dim tds = elems(n).getelementsbytagname("td")
                Dim dr As Row= Tables("表B").AddNew()
    ndr = Tables("录入表").AddNew()
    For tn As Integer = 0 To tds.count -1
If tds(tn).innerText > "" Then
        ndr(tn) = tds(tn).InnerText
                    dr(tn) = tds(tn).innerText
End If
    Next
Next

但下载数据时提示：

此主题相关图片如下：微信图片_20201201130858.png

只下载了一行数据，第一列是空值！

此主题相关图片如下：微信图片_20201201130934.png

看来我加的代码还是有问题，请蓝老师费心！

谢谢！

--  作者：有点蓝
--  发布时间：2020/12/1 13:44:00
--
使用列名，不要使用索引来引用单元格

--  作者：cxmxjwlmq
--  发布时间：2020/12/1 16:05:00
--

蓝老师：惭愧！不好意思，我没有明白！

MainTable = Tables("录入表")

DataTables("表B").DataRows.Clear()
elems = web.Document.GetElementById("ctl00_C_gv").GetElementsByTagName("tr")
Dim ndr As Row
For n As Integer = 1 To elems.count - 2
    Dim tds = elems(n).getelementsbytagname("td")
    Dim dr As Row= Tables("表B").AddNew()
    ndr = Tables("录入表").AddNew()
    For tn As Integer = 0 To tds.count -1
        ndr("序号") = tds(1).InnerText   ‘用列名引用
\'        ndr(tn) = tds(tn).InnerText
        dr(tn) = tds(tn).innerText
    Next
Next

我改成列名，但只引用一列的值，但根据网页上表不同，列名也不同，怎样依据列名来引用，我没有搞明白，希望你给指导一下，代码的修改！

谢谢！

--  作者：有点蓝
--  发布时间：2020/12/1 16:22:00
--

Dim dtb As New DataTableBuilder("录入表")
Dim dict As new Dictionary(of Integer,String)
For i As Integer = 0 To elems.count-1
msgbox(elems(i).InnerText)
if elems(i).InnerText > "" then
dict.add(i,elems(i).InnerText)
    dtb.AddDef(elems(i).InnerText,Gettype(String),250)
end if
Next
dtb.Build()

……
For tn As Integer = 0 To tds.count -1
if dict.ContainsKey(tn) then
ndr(dict(tn)) = tds(tn).InnerText
        dr(dict(tn)) = tds(tn).innerText
endif
    Next

--  作者：cxmxjwlmq
--  发布时间：2020/12/1 17:11:00
--

谢谢！谢谢蓝老师！

已经可以了，具体的代码含义我慢慢琢磨领会一下！

再次感谢！