主题：[求助]狐表如何解决取文件中列名为空白的问题？

  此为原始htm文件图
  在新的代码下，如何解决下面运行错误的问题？

代码

原代码

如下，自己核对一下

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

web.Navigate(projectpath & "临床.htm")

Do Until web.ReadyState = 4
   
    Application.DoEvents
   
Loop

'取数据

Dim Cols As new List(of String)

Dim elems As object = web.Document.GetElementsByTagName("Table")(0).GetElementsByTagName("tr")

Dim m As Integer = 0

For Each elem As object In elems
   
    Dim i As Integer = 0
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    If m = 0 Then
       
        For Each tdelem As object In tdelems
            If tdelem.InnerText.trim > "" Then
                Cols.add(tdelem.Innertext)
            End If
        Next
       
    Else
        If m > 1 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
            Dim r As Row = Tables("临床").AddNew
            i = 0
            For Each tdelem As object In tdelems
                If Tables("临床").Cols.Contains(Cols(i))
                    r(Cols(i)) = tdelem.Innertext
                End If
                i = i + 1
            Next
        End If
    End If
    m = m + 1
Next

Tables("临床").save

可以了！

如下

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate(projectpath & "临床.htm")
Do Until web.ReadyState = 4
   
    Application.DoEvents
   
Loop
'取数据
Dim Cols As new List(of String)
Dim elems As object = web.Document.GetElementsByTagName("Table")(1).GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
   
    Dim i As Integer = 0
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    If m = 0 Then
       
        For Each tdelem As object In tdelems
            If tdelem.InnerText.trim > "" AndAlso tdelem.InnerText <> "项目" Then
                Cols.add(tdelem.Innertext)
            End If
        Next
       
    Else
        If m > 0 Then  '因为网页的表格有标题,如果不判断,就会增加出一个空行
            Dim r As Row = Tables("临床").AddNew
            i = 0
            For Each tdelem As object In tdelems
                If Tables("临床").Cols.Contains(Cols(i))
                    r(Cols(i)) = tdelem.Innertext
                End If
                i = i + 1
            Next
        End If
    End If
    m = m + 1
Next
Tables("临床").save