DataGridView项目添加到第1列和第1列。第2栏

Question

如何将“pageElement2”添加到“column1”和“PageElement3”到“column2”？

我的代码：

   Dim PageElement2 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
    For Each CurElement As HtmlElement In PageElement2
        If (CurElement.GetAttribute("className") = "itemclassname") Then
            Dim row As String() = New String() {CurElement.InnerText}
            DataGridView1.Rows.Add(row)
        End If
    Next
    Dim PageElement3 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
    For Each CurElement As HtmlElement In PageElement3
        If (CurElement.GetAttribute("className") = "itemclassnametwo") Then
            Dim row As String() = New String() {CurElement.InnerText}
            DataGridView1.Rows.Add(row) 
        End If
    Next

我有2栏。

 Name
 Price

我想将“PageElement2”项添加到“Name”列，将“PageElement3”项添加到“Price”列。

Answer 1

你可以试试这个：

Dim Names As New List(Of String)
Dim Prices As New List(Of String)

Dim PageElement2 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each CurElement As HtmlElement In PageElement2
    If (CurElement.GetAttribute("className") = "itemclassname") Then
        Names.Add(CurElement.InnerText)

    End If
Next

Dim PageElement3 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each CurElement As HtmlElement In PageElement3
    If (CurElement.GetAttribute("className") = "itemclassnametwo") Then
        Prices.Add(CurElement.InnerText)

    End If
Next


For x = 0 To Math.Max(Names.Count, Prices.Count)
    If x < Names.Count AndAlso x < Prices.Count Then
        Dim row As String() = New String() {Names(x), Prices(x)}
        DataGridView1.Rows.Add(row)
    End If
Next