webtable表中单选框、多选框获取数值、index、按顺序选择

Dim num,num1

 set num1=Browser("德清项目建设综控系统").Page("德清项目建设综控系统").Frame("main").WebTable("岗位名称")

set num=Browser("德清项目建设综控系统").Page("德清项目建设综控系统").Frame("main").WebRadioGroup("record:_flag")

hang=num1.RowCount '获取webtable行数

For i=2  to hang

nr=num1.GetCellData(i,2) '获取webtable第i行、第2列的值，用GetCellData函数

'print "获取的第一列内容=："&nr

'xk=num.GetROProperty ("selected item index")'获取单选框选中的index

Browser("德清项目建设综控系统").Page("德清项目建设综控系统").Frame("main").WebRadioGroup("record:_flag").Select nr '单选框选择数据，nr是变量，在上一行中被赋值

xk=num.GetROProperty ("selected item index")'获取单选框选中的index

'print "获取被选择单选框index=："&xk

nr1=num.GetROProperty ("value") '获取单选框被选择的内容

'print "单选框被选择的内容为=："&nr1

print   "获取的第"&i-1&"行内容=："&nr&"      获取被选择单选框index=："&xk&"     "&"单选框被选择的内容为=："&nr1

Next

‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’

‘多选框

Dim abc

 set abc=Browser("软件应用框架").Page("软件应用框架").Frame("Frame").WebTable("新闻标题")

hang=abc.RowCount    '行

lie=abc.ColumnCount(1) '列

For i=2 to hang' 行

For j=2 to lie  '列

    flog=0

nr=abc.GetCellData(i,j)

If nr=" " Then '如果查询出的内容为空

    Exit for' 退出for 循环

else

k=k+"         "+nr '将列表中的一行内容复制给k

Dim xuanzhong

set xuanzhong=abc.ChildItem (i,1,"webcheckbox",0) '查找选择框，第i行，第1列webcheckbox是控件类别

If flog=0 Then

xuanzhong.set "on"

flog=1

'else

'    xuanzhong.set "off"

'    flog=0

End If 

End If

Next

print k

k=""

Next