webRadionGroup和webtable的使用技巧

!H$~Vo#Ws6o
~0'   演示环境http://newtours.demoaut.com/mercuryreservation.php
c$L'QA7~M0Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select "oneway"51Testing软件测试网,n&WGTd\OD
' all items  获取所有单选框的对象，
Ex1?2Nkrm?0 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("all items")51Testing软件测试网{}d&V&k`(~XCw
'items count  获取单选框的个数
qn]5A#?M2yZ0  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("items count")51Testing软件测试网:y)H|~m.S
 51Testing软件测试网9Tqi5F]DQ
  'selected item index   获取当前所选对象index51Testing软件测试网&H:g"A8B:h;teZj
 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("selected item index")51Testing软件测试网6Fl~F ly
  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("value")

 51Testing软件测试网R9k.P"W&d$Qt;p%X

/J:u4p(dT0jB0如图，知道其中黄色部分，要找到器绿色部分的信息，同时，在本页找不到的情况下，翻页继续找，直到最后一页！

TO/c@y-`mzP0具体代码如下：51Testing软件测试网R;Dh8OD?+v

d:pO:i.O;FU}0Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Activate

F&b'w vM0'Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").Link("5").Click

If

&gHT&{j1e~0msgbox Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetCellData(2,3)
l5A$a8sD0Dim row ,link51Testing软件测试网gb#w;l'mFp-^
row = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetRowWithCellText(DataTable("p_Text", dtGlobalSheet), 2, 3)
Q2G$]peFn.k:bB0msgbox row51Testing软件测试网9dXwd}$hh!J

)O Q Vcrc&ma0Set Link = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").ChildItem(row, 1, "Link", 0)51Testing软件测试网.{b1b5_9H!J

h`A;`B:PO0Link.Click

同时，webtable常用的方法还有51Testing软件测试网h3O6SPQ!^A0x]1y1H

[L [Za!_"N?0if  Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").Exist then

G*Sz:Rc!Yb6}0reporter.ReportEvent 0,"pass","系统显示了所有的资讯列表！"

u}g)SSG0else51Testing软件测试网~/B;_bon\f9{*N
  reporter.ReportEvent 1,"fail","系统没有显示资讯列表！

end if

‘获取表格行数：51Testing软件测试网+\^SD?
Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").RowCount

Snap1