QTP 检查提示信息

SystemUtil.Run "C:\Program Files\MultipleIEs\IE6\iexplore.exe","","","open"
 CurrRow = DataTable.GetCurrentRow
 RowCount =DataTable.GetRowCount
 For i=CurrRow to RowCount
。。。。。。。
Browser("JoomlaTest").Page("JoomlaTest_3").Output CheckPoint("JoomlaTest_3")  ’输出界面的错误提示信息

Browser("JoomlaTest").Page("JoomlaTest_3").Link("HOME").Click
 '先在datatable中创建的actual_prompt_info列
  If  DataTable("actual_prompt_info",dtGlobalsheet)=DataTable("error_prompt_info",dtGlobalsheet) Then  '捕获实际结果 判断预期结果和实际结果是否一致
      Reporter.ReportEvent micPass, "change password" , "预期结果" & DataTable("actual_prompt_info",dtGlobalsheet)& "实际结果" &DataTable("error_prompt_info",dtGlobalsheet)   '输出正常登录pass报告
 else
   Reporter.ReportEvent micFail,"change password", "预期结果" & DataTable("actual_prompt_info",dtGlobalsheet)_   
   & "实际结果" & DataTable("error_prompt_info",dtGlobalsheet)
 End If
  DataTable.SetNextRow
 NEXT 
 row = DataTable.GetCurrentRow
 if row=CurrRow then
  datatable.export("d:\data.xls") '输出到excel中，记得将运行迭代数设置为1
 end if