01-07-2010, 03:47 PM
Hi Swetha,
Sorry for my ignorance if I didn't go through your scripts properly.
I would like to suggest you a different approach here
can you try this and let me know if it works for you?
Sorry for my ignorance if I didn't go through your scripts properly.
I would like to suggest you a different approach here
Code:
ObjTable = browser("TalonPro Solutions").Page("TalonPro Solutions_2").Frame("Frame").WebTable("Property_2")
With ObjTable
RCount = .RowCount
bFnd = false
For RCntr = 1 To RCount
CCount = .ColumnCount(RCntr)
For CCntr = 1 To CCount
ItemCount = .ChildItemCount(RCntr, CCntr, "WebElement")
For iCnt = 1 to ItemCount
Set objWE = .ChildItem(RCntr, CCntr, "WebElement", iCnt)
sColor = objWE.Object.currentStyle.backgroundColor
If sColor = Color of the vacant element Then
'Check the checkbox on that row
bFnd = true
Exit For
End If
Next
If bFnd = true Then Exit For
Next
If bFnd = true Then Exit For
Next
End with