关于QTP逐步取DADATABLE里的值

chencan1987118

简单介绍一下代码的作用，测试一个简单的登录过程。

Dim i '定义行号
Dim outputvalue '定义测试过程中的输出值
Dim expectvalue '定义期望的输出值

For i=1 to datatable.GetSheet("Action1").getrowcount  '循环


Browser("Welcom to SoftServ CRM").Page("Welcom to SoftServ CRM").WebEdit("login_name").Set DataTable("LoginName", dtLocalSheet)
Browser("Welcom to SoftServ CRM").Page("Welcom to SoftServ CRM").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("Welcom to SoftServ CRM").Page("Welcom to SoftServ CRM").WebEdit("password").Submit
Browser("Welcom to SoftServ CRM").Page("Welcom to SoftServ CRM").Output CheckPoint("Please enter your user")'插入检查点，将得到的输出值插入到本地表中。

outputvalue=datatable("outputvalue",dtLocalSheet)'将本地表中的outputvalue的值赋给变量outputvalue
expectvalue=datatable("ExpectValue",dtLocalSheet)

If outputvalue<>expectvalue Then
reporter.ReportEvent 1,"Login Testing","ouput value: "+outputvalue+"expect value: "+expectvalue
End If
datatable.GetSheet("Action1").setnextrow '取下本地表中下一行的值
Next
Browser("Welcom to SoftServ CRM").Page("SoftServ CRM").Sync
Browser("Welcom to SoftServ CRM").Close