webRadionGroup和webtable的使用技巧

'   演示环境http://newtours.demoaut.com/mercuryreservation.php
"]h
u,CW#wf0Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select "oneway"
9Q4g(MG1_M%E$l1q8W0' all items  获取所有单选框的对象，
o%l%PR4~5\3U.pu0 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("all items")51Testing软件测试网;I:yo~gH3`H
'items count  获取单选框的个数51Testing软件测试网KOQ!j"t0QBJ;{2r
  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("items count")51Testing软件测试网Y[ eoE"E/X:Z
 
+t0Wgv/[C.j9seR0  'selected item index   获取当前所选对象index51Testing软件测试网0z?z1e_Xj}M] y4{
 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("selected item index")
/HQ2Y8t
w0  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("value")51Testing软件测试网&_'w(rP%{A6B o

 51Testing软件测试网-]4wiJ:ML]!p

如图，知道其中黄色部分，要找到器绿色部分的信息，同时，在本页找不到的情况下，翻页继续找，直到最后一页！51Testing软件测试网 `#d%]1|eL

具体代码如下：

XY#C8s4l0n'c%l3k0Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Activate
Gg#W?_*CWQT0'Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").Link("5").Click51Testing软件测试网%z u(sB,i-F ~4r'RV

tG;M] S/q6F0A0If
51Testing软件测试网`*qzz o"_h
msgbox Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetCellData(2,3)51Testing软件测试网-Hiy.o.T"d
Dim row ,link51Testing软件测试网8q U?r|[*['W$HN+P
row = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetRowWithCellText(DataTable("p_Text", dtGlobalSheet), 2, 3)
Z@f p$g3P0msgbox row51Testing软件测试网ty'fb/g&d

Set Link = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").ChildItem(row, 1, "Link", 0)

Link.Click51Testing软件测试网$c oHB{8yN u

同时，webtable常用的方法还有

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

pY.m6HJ.C0reporter.ReportEvent 0,"pass","系统显示了所有的资讯列表！"

else
3P'Q Ab[(uk P6w0  reporter.ReportEvent 1,"fail","系统没有显示资讯列表！

4U-OSLkN,o:] G0end if51Testing软件测试网:F$?KY WzB

~m F^YP0‘获取表格行数：
_'E$O,i*qj1b R0Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").RowCount
51Testing软件测试网n1MduE,wa Y/L?

Snap1