这种格式的网页下拉表如何单击操作

237763335

各位老师，我们公司有个内网查电子器件的库存信息，我完成了基本的用户名密码输入登陆等操作。
然后跳转到下一网页，这个网页有个类似下拉列表的选项，我想单击其中的Search下面的Components...，但是怎么都执行不了。
请大家大牛老师帮帮忙啊！

程序如下：
Sub LoginDDEBlog()
    Dim r, i As Integer
    With CreateObject("InternetExplorer.Application")
        .Navigate "https://xxxx/emxLogin.jsp"               'xxxx表示网址
        .Visible = True
        
        Do Until .readyState = 4
            DoEvents
        Loop
   
        .document.getElementsByName("login_name").Item(0).Value = "???"      '???表示用户名
        .document.getElementById("login_password").Value = "1234"           '1234是密码
        .document.getElementById("enter").Click                             '登陆

        '上面的程序能正常登陆成功和跳转
   
        
        '下面想继续对网页操作，为什么不行呢？
        While .readyState <> 4 Or .Busy
            DoEvents
        Wend
   
        Set r = .document.all.tags("tr")
        For i = 0 To r.Length - 1
            If r(i).innerText = "Components..." Then        '得到是第几行
                MsgBox i                                                       '显示行数，输出37
                r(i).Click
                Exit For
            End If
        Next i
        
    End With
End Sub

跳转之后需要操作的网页HTML如图片所示。