Sendkeys不适用于Ajax WebEdit字段

Question

您好我在WebEdit字段中设置值时遇到问题。我已经确定了这个对象。但由于字段具有Ajax功能，因此无法在字段中设置值。

Set WshShell = CreateObject("WScript.Shell")

                        Set webeditObj = webeditObject("class", "grid-dropdownbox", "index" , "0")
                        Browser(browserObj).Page(pageObj).WebTable(webtableObj).WebEdit(webeditObj).Click
                        Browser(browserObj).Page(pageObj).WebTable(webtableObj).WebEdit(webeditObj).Set refBook.Item("book")
                        wait(3)
                        WshShell.SendKeys "{DOWN}"
                        wait(1)
                        WshShell.SendKeys "{ENTER}"
                        wait(3)

我可以在输入框中看到该值。但是当进入下一个字段时，前一个字段的值将被清除。

请帮忙。

问题已经解决。

请参阅以下代码。但仍然等待时间不是100％肯定。有时失败了。

Function setValue(browserObj, pageObj, webtableObj, webeditObj)
          Set WshShell = CreateObject("WScript.Shell")
          wait(3)
          WshShell.SendKeys "{DOWN}"
          wait(3)
          Browser(browserObj).Page(pageObj).WebTable(webtableObj).WebEdit(webeditObj).Click
          WshShell.SendKeys "{DOWN}"
          wait(5)
          WshShell.SendKeys "{ENTER}"
          wait(3)
End Function