|
我的目的是要计算一个网页表格中每种类型数据的记录数,有“有效”,“无效”,“未验证”三种
Browser("xxx").Page("xxx").WebEdit("rbac_password").Set "1"
Browser("xxx").Page("xxx").Image("btn_login").Click
Browser("xxx").Page("xxx").Frame("top").WebElement("m_line").Click
Browser("xxx").Page("xxx").Frame("left").Link("资料查询").Click ’这里往前的内容都可以忽略,是登录之类的先置步骤
Dim row
row=Browser("xxx").Page("xxx").Frame("right").WebTable("姓名").RowCount
msgbox row '这里返回的行有18行
Dim celldata ’这个用来存储每个表格getcelldata返回的值
Dim i,j,k ’用来计算每种类型的数据的记录数
For i=2 to row
celldata=Browser("xxx").Page("xxx").Frame("right").WebTable("姓名").GetCellData(i,9)
msgbox celldata
Select Case celldata ’设置了断点1
Case "有效"
i=i+1
msgbox i
Case "无效" j=j+1
Case "未验证" k=k+1
End Select ‘设置了断点2
Next
msgbox i
msgbox j
msgbox k
在断点1处用F11,发现根本就没有进入select case语句里运行,rowcount返回表格的行为18.但是最后 msgbox的i值竟然为19.
问题1:
为什么都看不到select case里的值被执行,但是i却有值呢?
问题2:
for循环里,select case语句为什么没有得到执行呢? |
|