Dim MXRow As new List(of String) ‘定义一个变量,放数据行
Dim MXTab As new List(of object) ’定义一个变量,准备把集合MXRow 放进来
Dim showmx As object = pptable.Document.GetElementById("showmx")
If showmx Is Nothing Then
Dim trls As object = pptable.GetElementsByTagName("tr")
For i As Integer = 1 To trls.count - 3
MXRow.Clear ‘清空集合
For Each td As object In trls(i).GetElementsByTagName("span")
MXRow.Add(td.Innertext) ’这里用msgbox测试都正常
Next
MXTab.Add(MXRow) ’把行的集合添加到 MXTab
Next
Return MXTab ’返回集合变量 MXTab
end if
下面是打印结果,验证这个变量
For Each hs As object In mxtab
For Each c As String In hs
msgbox(c) ‘发现打印出来的结果都是同样的数据,都是最后一行的数据?
Next
Next