How to click on a Checkbox in a webtable

[vjjohnson04]

Hi all,



I'm trying to get the count of check-boxes in column 1 from a webtable as seen in the image attached and click on the first 10 records setting them to on.

Code:

Code:

Set oPage = Browser("micClass:=Browser").Page("micClass:=Page")
Result_Grd = "html id:=ResultGridCtl"

Set oChkBox = Description.Create()
oChkBox("micClass").value = "WebCheckBox"
oPage.WebTable(Result_Grd).highlight
If oPage.WebTable(Result_Grd).Exist Then

wbChkCount = oPage.WebTable(Result_Grd).ChildObjects(oChkBox) .count

End If

http://screencast.com/t/7Zkd30GRIPbB
The above code gives me the count of all check-boxes in the WebTable.

Can some one help as I'm stuck on this.

[ssvali]

Try the below code... I added to ur code

Code:

Set oPage = Browser("micClass:=Browser").Page("micClass:=Page")
Result_Grd = "html id:=ResultGridCtl"

Set oChkBox = Description.Create()
oChkBox("micClass").value = "WebCheckBox"
oPage.WebTable(Result_Grd).highlight
If oPage.WebTable(Result_Grd).Exist Then

wbChk = oPage.WebTable(Result_Grd).ChildObjects(oChkBox)

For i = 1 to wbChk.Count - 1

    wbChk(i).highlight
    wbChk(i).Set ON

    If i > 10 Then
        Exit For
    End If

Next

[vjjohnson04]

Thanks for the help just modified the a few things and it works PERFECT .

Code:

Code:

Set oPage = Browser("micClass:=Browser").Page("micClass:=Page")
Result_Grd = "html id:=ResultGridCtl"

Set oChkBox = Description.Create()
oChkBox("micClass").value = "WebCheckBox"
oChkBox("disabled").value = 0
oPage.WebTable(Result_Grd).highlight
If oPage.WebTable(Result_Grd).Exist Then

Set wbChk = oPage.WebTable(Result_Grd).ChildObjects(oChkBox)

For i = 1 to wbChk.Count - 1

     wbChk(i).highlight
     wbChk(i).Set "ON"

    
     If i > 10 Then
         Exit For
     End If

Next            
End If

[ssvali]

My pleasure.
Glad that it worked for you.

[vjjohnson04]

What if I have 2 columns with check boxes and want to set the value of all check boxes only in 1 column. How do i do that?