新手,所以还不是很懂。
Dim i
Dim username,b,expect,actual
Browser("云网OA").Page("云网OA - CWOA试用单位").Frame("midFrame_2").WebEdit("userRealName").Set DataTable("name", dtLocalSheet)
Browser("云网OA").Page("云网OA - CWOA试用单位").Frame("midFrame_2").WebEdit("joinPartyDate").Set DataTable("date", dtLocalSheet)
For i=1 to 7
Browser("云网OA").Page("云网OA - CWOA试用单位").Frame("midFrame_2").WebButton("保存").Click
If Browser("云网OA").Dialog("来自网页的消息").Exist Then
expect=datatable("status","enter")
actual=Browser("云网OA").Dialog("来自网页的消息").Static("人事档案管理中入党时间格式非法!").GetROProperty("text")
'msgbox actual
'msgbox expect
Browser("云网OA").Dialog("来自网页的消息").WinButton("确定").Click
If actual=expect Then
reporter.ReportEvent micPass,"测试通过",expect
else
reporter.ReportEvent micFail,"与预期结果不符"&actual,expect
End If
End If
datatable.SetNextRow
Next作者: 珞洛 时间: 2017-1-6 23:01
问了人 问题已解决
参数化的代码没有放进循环 然后后面再加个判断添加成功的代码就能正常运行了 非常观看此帖的你们 哈哈