标题: 检查点的问题 [打印本页] 作者: zhuyuancan 时间: 2007-4-6 18:29 标题: 检查点的问题 有一个编辑框。输入不同的数据会有不同的提示(但提示的信息都在同一个位置)!!
我用if语句对编辑框的内容进行判断,并把检查点放在了if 语句中,,但是回放过程中录制时添加的那个检查点就能过,,其他的都过不了。。。忘大侠指点啊!!
if n<12 Then
if (name.GetROProperty("value"))="" then
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID不能为空!")
else
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID必须是13位")
end if
Elseif not(IsNumeric(name.GetROProperty("value"))) Then
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID必须是数字")
else
Browser("会员管理主界面").Page("会员注册").Check CheckPoint("您可以使用")
End If
其他的检查点都提示The "××××××דCheckPoint object was not found in the Object Repository.
Check the Object Repository to confirm that the object exists or to find the correct name for the object.
但是我在object repository中将其他的检查点的信息都加进去了。。
不知道我描述的够清楚不作者: walker1020 时间: 2007-4-6 18:38
仔细检查一下你写的代码,肯定是你的代码有问题作者: zhuyuancan 时间: 2007-4-6 18:47
Browser("mmmm").Page("会员注册").WebEdit("sName").Set ""
Set name=Browser("mmmm").Page("会员注册").WebEdit("sName")
Browser("mmmm").Page("会员注册").WebEdit("sPassword").Click
Dim n
n=len(name.GetROProperty("value"))
if n<12 Then
if (name.GetROProperty("value"))="" then
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID不能为空!")
else
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID必须是13位")
end if
Elseif not(IsNumeric(name.GetROProperty("value"))) Then
Browser("mmmm").Page("会员注册").Check CheckPoint("会员ID必须是数字")
else
Browser("mmmm").Page("会员注册").Check CheckPoint("您可以使用")
End If