Foxtable(狐表)用户栏目专家坐堂 → 请帮我找出代码中的错误


  共有2777人关注过本帖树形打印复制链接

主题:请帮我找出代码中的错误

帅哥哟,离线,有人找我吗?
304376480
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:340 积分:3794 威望:0 精华:0 注册:2017/9/7 15:20:00
请帮我找出代码中的错误  发帖心情 Post By:2021/1/22 17:00:00 [显示全部帖子]

老师您好!

我想把网页表格中的数据存到一个集合变量中
Dim pptable As object = Args(0) ’网页中的一个元素
Dim mxtable As object = Args(0)
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

 回到顶部
帅哥哟,离线,有人找我吗?
304376480
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:340 积分:3794 威望:0 精华:0 注册:2017/9/7 15:20:00
  发帖心情 Post By:2021/1/22 17:53:00 [显示全部帖子]

好的,谢谢了图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部