主题：[求助]为什么指定行可以采集面循环表就不行

Forms("窗口1").TimerEnabled = False

Dim web As System.Windows.Forms.WebBrowser = Forms("窗口1").Controls("WebBrowser1").BaseControl

Dim divhtml As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("div") '获得当前页面的div标签HTML元素集合

For i As Integer = 0 To divhtml.Count - 1 '循环所有div标签

    If divhtml(i).OuterHtml.Contains("myTabContent") Then 'myTabContent是成功登录后数据表的id

        Dim trhtml As Object = web.Document.GetElementById("total").GetElementsByTagName("tr") '获得当前页面的id为total下的标签tr元素集合

        Dim tdhtml 

        Dim KeMu As New List(Of String) From {"语文成绩", "数学成绩", "外语成绩", "物理成绩", "化学成绩", "生物成绩", "政治成绩", "历史成绩", "地理成绩", "综合成绩", "本科总分(含加分)", "本科分平行排名"} '定义网页需采集的数据集合

        Dim XueKe As New List(Of String) From {"语文", "数学", "外语", "物理", "化学", "生物", "政治", "历史", "地理", "综合", "总分", "总分排名"} '定义成绩表里的字段集合

        Dim xkstr, cjstr As String

        Dim h As Integer

        Dim r As Row

        '采集网页数据到数据表

        For j As Integer = 1 To trhtml.count - 1

            xkstr = trhtml(j).GetElementsByTagName("td")(0).innertext

            cjstr = trhtml(j).GetElementsByTagName("td")(1).innertext

            If KeMu.Contains(xkstr) AndAlso cjstr IsNot Nothing Then

                xkstr = xueke(KeMu.IndexOf(xkstr))

                h = Tables("成绩").FindRow("[考生号] = " & stuKsh)

                r = Tables("成绩").Rows(h)

                r(xkstr) = cjstr

            End If 

        Next

        CaiJi = True

        Exit For

    End If

'以下是消除验证码出错弹出的提示框

    If divhtml(i).OuterHtml.Contains("wintips") And divhtml(i).OuterHtml.Contains("display: block;") Then '判断该input标签是否包含这个字符串(如果包含说明该div标签是在弹窗里)

        'MessageBox.Show(divhtml(i).OuterHtml)

        'messagebox.Show(divhtml(i).Children(1).OuterHtml)

        divhtml(i).Children(1).InvokeMember("click")

        Sleep(1000)

        Functions.Execute("btn1")

        Exit For

    End If

Next