关于用set 定义一下对象

今天有雾

我做了下面一段脚本
Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
set obj=Browser(xxx).Page(xxx)
Do While obj.Link("text:=Next").Exist
For i=1 to objtable.Rowcount-1
    If "Demo"=Trim(objtable.GetCellData(i+1,1)) Then
        msgbox "This is test"
        Exit  Do
   End if
Next
obj.Link("text:=Next").Click
Loop
我发现我运行的时候，进行第二次翻页的时候，会提示一个"Unspecified error"，报错指向For i=1 to objtable.Rowcount-1
后来我去除set对象的方法后，直接写Browser(xxx).Page(xxx).WebTable(xxx).Rowcount-1，就能完整运行了，请问有谁知道我的set是不是有什么问题

今天有雾

咋过了一天还是没有人理我啦，自已顶一下吧

今天有雾

有没有人碰到过这个问题呀

冰河

Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
set obj=Browser(xxx).Page(xxx)
Do While obj.Link("text:=Next").Exist
----
   Set objtable=Browser(xxx).Page(xxx).WebTable(xxx)
----
For i=1 to objtable.Rowcount-1
    If "Demo"=Trim(objtable.GetCellData(i+1,1)) Then
        msgbox "This is test"
        Exit  Do
   End if
Next
obj.Link("text:=Next").Click
Loop
++++++++++++++++++++++++++
修改后的程序如上，试试看~~
就是在For语句上方重新set下对象看看

[ 本帖最后由 冰河 于 2008-2-2 10:21 编辑 ]

今天有雾

谢谢,我有空去试试,最近工作有点忙

lunarever

是不是翻页后objtable变了？加个断点停下看看属性分析下