将WebTable赋给一个变量后，第二次循环时QTP不认识它了

dcyan

我把一个WebTable赋给一个变量
Set WebTableInstance=Browser("@@").Page("@@").WebTable("@@")
然后在一个Sub的For循环里使用这个变量，第一次循环正常，第二次循环就提示can't identify WebTable
如果我不用变量，直接用Browser("@@").Page("@@").WebTable("@@")的话每次循环就都可以

找了很久也不知道为什么，希望知道的老大帮助一下

walker1020

把 你写的语句最前面的Set  删除后试试。

danmy

原帖由 walker1020 于 2007-4-25 08:33 发表
把 你写的语句最前面的Set  删除后试试。

这个set不能删吧？ webtable毕竟是个object

winfood

把代码贴出来看看吧

dcyan

hi,winfood 代码和图片见下面


Set WebTableInstance=Browser("CNF").Page("DetailsApplication").WebTable("VersionsList")
Call TestDeleteOneVersion("New Version (2)",1,0,"WebElement",2,"Link",0,0,WebTableInstance)
Sub TestDeleteOneVersion(ApplicationVersionName,NameObjectCol,NameObjectPosition,NameObjectMicClass,DeleteObjectCol,DeleteObjectMicClass,DeleteObjectPosition,DeleteConfirm,WebTableInstance)
        RowNum=WebTableInstance.RowCount
        For i=2 to RowNum
        If WebTableInstance.ChildItem(i,NameObjectCol,NameObjectMicClass,NameObjectPosition).GetROProperty("innertext")=ApplicationVersionName Then
                WebTableInstance.ChildItem(i,DeleteObjectCol,DeleteObjectMicClass,DeleteObjectPosition).Click
                Exit For
        End If
        Next
        If Browser("CNF").Dialog("DeleteApplicationVersionConfirm").Exist(2) Then
                If DeleteConfirm=1 Then
                        Browser("CNF").Dialog("DeleteApplicationVersionConfirm").WinButton("OK").Click
                        Wait 1
                        If CheckExistentApplicationVersion(ApplicationVersionName,NameObjectCol,NameObjectPosition,NameObjectMicClass) Then
                                Reporter.ReportEvent micFail,"Failed in","Delete Application Version"&ApplicationVersionName
                        Else
                                Reporter.ReportEvent micPass,"Succeed in","Delete Application Version"&ApplicationVersionName
                        End If
                ElseIf DeleteConfirm=0 Then
                        Browser("CNF").Dialog("DeleteApplicationVersionConfirm").WinButton("Cancel").Click
                        Wait 1
                         If CheckExistentApplicationVersion(ApplicationVersionName,NameObjectCol,NameObjectPosition,NameObjectMicClass) Then
                                Reporter.ReportEvent micPass,"Succeed in","Cancel deletion operation"&ApplicationVersionName
                        Else
                                Reporter.ReportEvent micFail,"Failed in","Cancel deletion operation"&ApplicationVersionName
                        End If
                End If
        Else
                Reporter.ReportEvent micFail,"Failed in","Found Deletion confirm prompt box"
        End If
End Sub

[ 本帖最后由 dcyan 于 2007-4-25 21:04 编辑 ]

winfood

Sorry，暂时没有看出来问题在哪里。
不过代码里面有个地方错了，不知道是不是贴的时候弄错了。Call Sub的时候传递了9个参数，而Sub的声明中只有8个参数。这样的错误在第一次调用Sub的时候就会报错，而不会等到第二次。你先检查一下

dcyan

sdlkfj3 我贴上来的时候少输了一个，确定不是这个引起的问题

winfood

Sorry, 从代码上面看不出来什么问题了。sdlkfj1
按说你的脚本里面，那个WebTable没有发生过变化，因为连删除操作都还没有实际执行。相应的WebTableInstance也不应该有变化的

winfood

按照原先的代码，拿51testing论坛的页面作为测试对象简单试了一下，其中Browser("Browser")和Page("51testing")对象需要手工添加到对象库里面。
SystemUtil.Run "iexplore.exe", "bbs.51testing.com/default.php"
Wait(5)

Set objTable = Browser("Browser").Page("51testing").WebTable("name:=wangyan")
intCol = 2
intRowCount = objTable.RowCount
For i = 3 To intRowCount
        Reporter.ReportEvent micDone, "Row#: " & i & " - ", objTable.GetCellData(i, intCol)
        If StrComp(objTable.GetCellData(i, intCol), micCellDoesNotExist, 1) <> 0 Then       
                Reporter.ReportEvent micDone, "Row#: " & i & " - ", objTable.ChildItem(i, intCol, "WebElement", 0).GetROProperty("innertext")
        End If
Next
Set objTable = nothing
在循环语句中多次使用objTable对象，运行也没有出现问题。
感觉你遇到的问题不象是普遍的问题，可以试着把原先的代码再分解一下，看看能不能隔离出问题来。

dcyan

ok,谢啦sdlkfj2， 我再看看

Sophie.zhang.cs

请问GetCelldata这个方法可以直接用吗？

dcyan

可以啊，Object.GetCellData(Row, Column),Object是一个WebTable对象
Quicktest professional help里面是这么说的

Sub GetCellData_Example()

'The following example uses the GetCellData method to display the

'contents of the cell located in cell 1, column 1 in a message box.
Set Text = Browser("Mercury Tours").Page("Search Results").WebTable("OutboundFlight").GetCellData(1, 1)
  MsgBox "text contains" & Text
End Sub

dcyan

hi,winfood,我试了几遍后发现，如果第一次循环WebTable中被删除了一行，第二次循环就不会报错，但是如果第一次循环WebTable中有行被删除了，第二次循环就会报错，提示不认识WebTable!
Set Set WebTableInstance=Browser("CNF").Page("DetailsApplication").WebTable("VersionsList")
WebTableInstance中莫非只能应用于不变的（行数）WebTable?

sealwt

是不是删除后表格重新排行了，而循环的仍是旧的排行不是新的  可以尝试吧获取webtable也放入循环？仅个人想法尚未试验，期待最后解答