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


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

主题：请帮我找出代码中的错误
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/22 17:21:00 [只看该作者]

If showmx Is Nothing Then
    Dim trls As object = pptable.GetElementsByTagName("tr")
    For i As Integer = 1 To trls.count - 3
        MXRow = new List(of String)
        For Each td As object In trls(i).GetElementsByTagName("span")
            MXRow.Add(td.Innertext)  ’这里用msgbox测试都正常
        Next
        MXTab.Add(MXRow) ’把行的集合添加到 MXTab
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
304376480
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 4 次数据查询