0

我正在从网页解析到 datagridview，但它只填充在第一行。有人可以帮我一把吗？感谢代码

  Dim Data(10) As String
    Dim Index As Integer = 0
    Dim Output As Boolean = False

    For Each ELement As System.Windows.Forms.HtmlElement In WebBrowser1.Document.All
        If UCase(ELement.TagName.ToString).Contains("TD") And Output = True Then
            Data(Index) = ELement.InnerText
            Index += 1
        ElseIf UCase(ELement.TagName.ToString).Contains("TR") And Output = True Then
            For Each row As DataGridViewRow In DataGridView1.Rows

                row.Cells.Item("data").Value = Data(0)
                row.Cells.Item("data1").Value = Data(1) 
                row.Cells.Item("data2").Value = Data(2) 
                Index = 0
            Next
        End If


        Output = True

    Next
4

1 回答 1

1

我修改了一点你的代码：基本上我添加了一个rowcounter变量来跟踪你正在解析的行。然后我创建新行，将其添加到GridView并用值填充单元格：

Dim Data(10) As String
Dim Index As Integer = 0
Dim Output As Boolean = False
Dim rowcounter As Integer = 0

For Each ELement As System.Windows.Forms.HtmlElement In WebBrowser1.Document.All
    If UCase(ELement.TagName.ToString).Contains("TD") And Output Then
        Data(Index) = ELement.InnerText
        Index += 1
    ElseIf UCase(ELement.TagName.ToString).Contains("TR") And Output Then
        If Data(0) IsNot Nothing Then

            Dim row As New DataGridViewRow
            DataGridView1.Rows.Add(row)

            DataGridView1(0, rowcounter).Value = Data(0)
            DataGridView1(1, rowcounter).Value = Data(1)
            DataGridView1(2, rowcounter).Value = Data(2)

            rowcounter += 1

            Index = 0
        End If
    End If
    Output = True
Next

我还添加了一个测试，Data(0)以防止在没有可用数据时添加一行

于 2013-06-29T10:12:08.533 回答