|
点击实现方式一:- Public Sub DateSelect( )
- On Error Resume Next
- Wait Wait_Second
- nameDesc = tmpValue
- Set ImageDesc = Description.Create()
- ImageDesc("micclass").Value = "Image"
- ImageDesc("file name").Value ="date.gif"
- Set ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
- If ImageButtonObject.count() > 0 Then
- ImageButtonObject(1).Click
- Else
- ShowErrorMessageBox
- End If
- 'AddCurrentStepValue tmpValue
- End Sub
复制代码 点击实现方式二:- Public Sub DateSelect( )
- On Error Resume Next
- Wait Wait_Second
- nameDesc = tmpValue
- Set ImageDesc = Description.Create()
- ImageDesc("micclass").Value = "Image"
- ImageDesc("file name").Value ="date.gif"
- Set ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
- If ImageButtonObject.count() > 0 Then
- ImageButtonObject(1).FireEvent "onclick"
- Else
- ShowErrorMessageBox
- End If
- 'AddCurrentStepValue tmpValue
- End Sub
复制代码 点击实现方式三:- Public Sub DateSelect()
- On Error Resume Next
- Wait Wait_Second
- Set WebTableDesc = Description.Create()
- WebTableDesc("micclass").Value = "WebTable"
- WebTableDesc("name").Value = "DateCheck"
- Set TableObjs =ParentObject.ChildObjects(WebTableDesc)
- If TableObjs.count()>0 Then
- TableObjs(0).ChildItem(1,6,"Image",0).Click
- End if
- Set WebTableDesc = Nothing
- Set TableObjs = Nothing
- End Sub
复制代码 问题是用这种方式去单步调试,都可以实现具体的操作。
但是在一系列的操作中就出现了问题,从Results veiwer中可以看到点击的动作已经done,但是日期的弹出窗口怎么都无法出现。
可是用单步调试的方式又可以实现弹出日期的窗口。
不知道大家有没有遇到过类似的问题,求解释?求真相? |
|