怎样用描述性编程的方法勾选复选框？

根据webtable中的某个数据，勾选所在行前面的复选框，可用描述性编程的方法实现，脚本如下：

Dim searchFlag,searchStr,i,j,num,obj,webobj,webtbl
Set webtbl=descrīption.Create
webtbl("micclass").value="WebTable"
set webobj=Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").ChildObjects(webtbl)
num=webobj.count
searchStr = "同方IC卡"
searchFlag = False

For j=0 to num-1
        Set ōbj=webobj(j)
        searchFlag = False
        For i = 1 to obj.RowCount
                If trim(obj.getcelldata(i,3))=searchStr Then
                        searchFlag = True
                Exit for
        End If
        Next
        If searchFlag=True Then
                Exit For
        End If
Next

If searchFlag=True Then
    Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").WebCheckBox("index:="&i-1).Set "ON"
Else
        msgbox searchStr & " has not found."
End If