webRadionGroup和webtable的使用技巧

!eJg#Bd6VUg0'   演示环境http://newtours.demoaut.com/mercuryreservation.php51Testing软件测试网jN4[$|,B_2m!KP
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select "oneway"
.qKV2F"s8S O+O}p j0' all items  获取所有单选框的对象，
_"X j#h8^ a4f(k0 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("all items")
|e |3f"R a%NN0'items count  获取单选框的个数51Testing软件测试网N6Gh0q&e
fw
  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("items count")
!g'z&WnO+\_&J2@0 

Mk!SC W&F2Q g.K+I0  'selected item index   获取当前所选对象index51Testing软件测试网#W
X1L GE
 msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("selected item index")51Testing软件测试网 `a1]X|
  msgbox Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").GetROProperty("value")51Testing软件测试网3M)GSirb

:u0EOc$nZ8I0 

如图，知道其中黄色部分，要找到器绿色部分的信息，同时，在本页找不到的情况下，翻页继续找，直到最后一页！51Testing软件测试网4xLL6v!e1J C

V#C2@$Eb{%uN.C_0具体代码如下：

&d*fFqLaz0n2WN5o0Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Activate
2@o0g/r#U Deq0'Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").Link("5").Click

If
51Testing软件测试网$lNJ
}2?| VX
msgbox Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetCellData(2,3)
yM:j }"QO~twgna0Dim row ,link51Testing软件测试网5B*H2yI Acw*Ww \-G
row = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").GetRowWithCellText(DataTable("p_Text", dtGlobalSheet), 2, 3)51Testing软件测试网]_*`Z X
eT'zq
msgbox row51Testing软件测试网{#~:np;}0@ V

Set Link = Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").ChildItem(row, 1, "Link", 0)51Testing软件测试网~O/V7a)]T{

Link.Click51Testing软件测试网0O:RD!xZ+Mp*\C4]

Kvk-mnc0同时，webtable常用的方法还有51Testing软件测试网hu8t9O5i\8^&VL(]

{5};v,E(I0if  Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").Exist then51Testing软件测试网&z2C A'I*@6y

:o$P9wW+kc,_0reporter.ReportEvent 0,"pass","系统显示了所有的资讯列表！"

else
?*r$EB5^j7Rl0  reporter.ReportEvent 1,"fail","系统没有显示资讯列表！51Testing软件测试网6]L` ^QC&j8Dm

?^ X Mp0end if

)yDKbVK0‘获取表格行数：51Testing软件测试网:j#X)TwZvgHV
Browser("欢迎使用信贷综合管理系统").Window("查询 -- 网页对话框").Page("查询").WebTable("序号").RowCount
51Testing软件测试网&VSA N;e5BIUx[c

Snap1