jacksboy 发表于 2010-5-13 09:56:08

msgbox循环显示的结果可以做判断么

For i=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").RowCount
for j=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").ColumnCount(1)
dim a(i,j)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)
if a
next
next
现在想对循环显示出来的某一列某一行的数值作判断,要是等于某个字符串,就写入结果,请问要怎么写.要把msgbox循环的到的值赋给一个数组么？谢谢
请问我这样写对不对：

For i=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").RowCount
for j=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").ColumnCount(1)
dim a(i,j)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)

If a="qtest".Exist Then
        Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest，不允许创建同名的存储."
        End If
next
next




Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest，不允许创建同名的存储."

TIB 发表于 2010-5-13 13:09:38

这样试试：

For i=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").RowCount
for j=1 to Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").ColumnCount(1)
a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)

If CSTR(a) ="qtest" Then
      Reporter.ReportEvent micPass,"qtptest已存在", "数据存储中已创建qtptest，不允许创建同名的存储."   
End If

next
next

feiyunkai 发表于 2010-5-13 14:00:54

这句语法错误

a=Msgbox Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)

可以修改为：
a=Browser("证书错误: 导航已阻止").Page("HyperServer 3.8_2").Frame("mainFrame_2").WebTable("存储信息 创建存储").GetCellData(i,j)
Msgbox a

TIB 发表于 2010-5-13 14:10:38

确实，Msgbox 是多余的
页: [1]
查看完整版本: msgbox循环显示的结果可以做判断么