日期的弹出窗口的实现

wwhunter1214

点击实现方式一：

1. Public Sub DateSelect( )
   
2.     On Error  Resume Next
   
3.         Wait Wait_Second
   
4.         nameDesc = tmpValue
   
5.         Set ImageDesc = Description.Create()
   
6.                 ImageDesc("micclass").Value = "Image"
   
7.                 ImageDesc("file name").Value ="date.gif"
   
8.         Set  ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
   
9.         If ImageButtonObject.count() > 0 Then
   
10.         ImageButtonObject(1).Click
    
11.         Else
    
12.                 ShowErrorMessageBox
    
13.         End If
    
14.         'AddCurrentStepValue tmpValue
    
15. End Sub

复制代码

点击实现方式二：

1. Public Sub DateSelect( )
   
2.     On Error  Resume Next
   
3.         Wait Wait_Second
   
4.         nameDesc = tmpValue
   
5.         Set ImageDesc = Description.Create()
   
6.                 ImageDesc("micclass").Value = "Image"
   
7.                 ImageDesc("file name").Value ="date.gif"
   
8.         Set  ImageButtonObject= ParentObject.ChildObjects(ImageDesc)
   
9.         If ImageButtonObject.count() > 0 Then
   
10.         ImageButtonObject(1).FireEvent "onclick"
    
11.         Else
    
12.                 ShowErrorMessageBox
    
13.         End If
    
14.         'AddCurrentStepValue tmpValue
    
15. End Sub

复制代码

点击实现方式三：

1. Public Sub DateSelect()
   
2.     On Error  Resume Next
   
3.         Wait Wait_Second
   
4.         Set WebTableDesc = Description.Create()
   
5.                         WebTableDesc("micclass").Value = "WebTable"
   
6.                         WebTableDesc("name").Value =  "DateCheck"
   
7.         Set TableObjs =ParentObject.ChildObjects(WebTableDesc)
   
8.         If  TableObjs.count()>0 Then
   
9.                 TableObjs(0).ChildItem(1,6,"Image",0).Click
   
10.         End if
    
11.         Set WebTableDesc = Nothing
    
12.         Set TableObjs = Nothing
    
13. End Sub

复制代码

问题是用这种方式去单步调试，都可以实现具体的操作。
但是在一系列的操作中就出现了问题，从Results veiwer中可以看到点击的动作已经done，但是日期的弹出窗口怎么都无法出现。

可是用单步调试的方式又可以实现弹出日期的窗口。

不知道大家有没有遇到过类似的问题，求解释？求真相？

026300

我猜测应该是object没有及时出现，依次使用setting，sync，waitproperty，wait试试吧