QTP的那些事--采用DOM,描述性编程获取指定的对象

testrow=Browser("testip").Page("【testpage").Frame("mainFrame0_2").WebTable("testtable").GetRowWithCellText("a111230122")
print "order list id"&cstr(testrow)
Set des=description.Create()
des("micclass").value="WebButton"
'des("xpath").value="/html/body/div/div[2]/div[3]/table/tbody/tr[2]/td[11]/input"
set alist=Browser("testip").Page("【testpage").ChildObjects(des)

b=alist.count
print b
counted=0
For i=0 to b-1
If alist(i).getroproperty("value")="购买" then
counted=counted+1
If counted=(testrow-2) Then
alist(i).click
End If
'     print "test id:"&cstr(counted)

end if
Next

.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }