11-04-2011, 02:43 PM
Code:
Set oDesc=Description.Create()
oDesc("micclass").value="WebTable"
oDesc("class").value="repeatReadOnly"
Set objColl=Browser("PegaRULES Process Commander").Page("PegaRULES Process Commander").Frame("FORMFRAME").ChildObjects(oDesc)
cnt_tb=objColl.count
If (cnt_tb > 0) Then 'checking to see if the objColl.count > 0
For i=1 to cnt_tb
no_cols=objColl.item(i).getroproperty("cols")
If no_cols=2 Then
data_tab=objColl.item(i).getcelldata(3,2)
msgbox data_tab
End If
Next
End If
Try by adding other properties :
Code:
oDesc(<other property>).value=<property value>
till you get cnt_tb > 0 i.e. objColl.count > 0