Vb.net 将列表项添加到数据网格视图

在我的一个程序中，我从网页上抓取了一些数据并将其添加到列表中，总共有七个列表中添加了数据，我想将所有七个列表项添加到数据网格视图的不同列中。我尝试了以下代码，但只有一行被添加到数据网格中

For Each link As HtmlNode In doc.DocumentNode.SelectNodes("//a[@class='job-title']")
    ans = link.InnerText
    list.Add(ans)
Next
For Each link1 As HtmlNode In doc.DocumentNode.SelectNodes("//em[@class='advertiser-name']")
    ans1 = link1.InnerText
    list1.Add(ans1)
Next
For Each link2 As HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='classification']")
    ans2 = link2.InnerText
    list2.Add(ans2)
Next

For Each link3 As HtmlNode In doc.DocumentNode.SelectNodes("//span[@class='listing-date']")
    ans3 = link3.InnerText
    list3.Add(ans3)
Next

For Each link4 As HtmlNode In doc.DocumentNode.SelectNodes("//span[@class='location']")
    ans4 = link4.InnerText
    list4.Add(ans4)
Next

For Each link5 As HtmlNode In doc.DocumentNode.SelectNodes("//span[@class='salary-range']")
    ans5 = link5.InnerText
    list5.Add(ans5)
Next

For Each link6 As HtmlNode In doc.DocumentNode.SelectNodes("//a[@class='job-title']")
    ans6 = link6.Attributes("href").Value
    list6.Add(ans6)

Next
    adddata()


Private Function adddata()
    Dim i As Integer
    Do Until list.Count = -1
        Form1.dgv.Rows.Add(list.Item(i), list1.Item(i), list2.Item(i), list3.Item(i), list4.Item(i), list5.Item(i), list6.Item(i))
    Loop
End Function 

---

我是vb.net新手，所以请不要介意你的

adddata

函数逻辑看起来有点不对劲。我想这就是你想要的：

Private Function adddata(ByVal list As List(Of String))
    Dim i As Integer = list.Count - 1
    Do Until i = -1
        Form1.dgv.Rows.Add(list.Item(i), list1.Item(i), list2.Item(i), list3.Item(i), list4.Item(i), list5.Item(i), list6.Item(i))
        i = i-1
    Loop
End Function 

---

为您拥有的每个列表（列表、列表1、列表2等）调用该函数，并将列表作为函数的参数传递。

请发布您的示例XML。我认为你没有以最有效的方式做这件事。不客气。请将建议工作解决方案的答案标记为。