Как обновить выпадающий список?

Question

У меня есть выпадающий список («drpstatus»), который устанавливает другой выпадающий список («drpReason»).

«drpstatus» - это «A» или «D», если это «A», мне нужно изменить это «D».

Когда я делаю это вручную, он обновляет мой выпадающий список «drpReason» из списка «A» до списка «D», но когда я изменяю его программно, «drpReason» остается в списке «A» несмотря на то, что значение теперь равно «D», поэтому нужного мне значения «20375» не существует.

Я не могу обновить sh страницу, с которой она будет очищена.

Я использую этот l oop для тестирования.

If wd.document.getElementById("drpStatus").Value = "A" Then
    wd.document.getElementById("drpStatus").Value = "D"

'I assume i'm missing something here to repopulate the "drpReason" dropbox

    Do Until wd.document.getElementById("drpReason").Value = "20375"
        DoEvents
        wd.document.getElementById("drpReason").Value = "20375"
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
End If

Answer 1

Я добавил то, что мне нужно, прямо там, где я думал, что мне нужен код.

If wd.document.getElementById("drpStatus").Value = "A" Then
    wd.document.getElementById("drpStatus").Value = "D"

wd.document.getElementById("drpStatus").FireEvent ("onchange")

        Do Until wd.document.getElementById("drpReason").Value = "20375"
        DoEvents
        wd.document.getElementById("drpReason").Value = "20375"
        Application.Wait (Now + TimeValue("0:00:01"))
        Loop
End If