怎么将页面上两个或多个Output Value组合起来设为一参数

adiao

在页面上设置了多个Output Value值。这些值组合起来的词组会在某一页面上显示，我现在想做的就是验证页面上显示的字符串是不是跟output value的值组合起来是一样的，请问该如何操作。
下面是脚本代码，其中A是firstname，B是lastname
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").Output CheckPoint("firstname")
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").Output CheckPoint("lastname")
Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("A B").Check CheckPoint("A B")

language_fw

我的想法是直接从临时表里面取出来值，然后组合在一起作为一个参数来用。

zhou840401

我觉得可以用getroproperty的方法,分别把firstname,lastname,Link("A B")的相关的值取出来进行比较.

adiao

我已经将他们的值输出到Data Table中了，就是不知道怎么将他们连接起来，在oracle 中A||B就可以了，但是在这不知道怎么写了。

language_fw

重新定义一个变量
dim result
dim firstname
dim lastname

result = firstname & lastname
你试一下。。。

adiao

为什么我这样写Set Fname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").GetROProperty("value")，执行时就会报“缺少对象: 'Browser(...).Page(...).GetROProperty(...)'”
若是Set Fname=String(Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").GetROProperty("name"))这样写又报“错误的参数个数或无效的参数属性值: 'String'”呢

adiao

大概明白了，是不是因为我要取的值是在WebEdit:firstname这层上，但是脚本中却只指到Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息")，从而会报缺少对象的错误

adiao

呵呵，解决，修改后代码如下：
Dim Fname,Lname,Fullname,Actual_name,MyComp
MyComp=StrComp(Fullname, Actual_name, 1)
Fname= Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").GetROProperty("value")
Lname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").GetROProperty("value")
Actual_name=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("张 彪").GetROProperty("outerText")
Fullname=Fname&" "&Lname
If MyComp = 0 Then
        Msgbox("一致")
        else
            Msgbox("不一致")
End If

adiao

脚本还是有问题
MyComp=StrComp(Fullname, Actual_name, 1) 放在声明语句后，而赋值语句在其之后，导致每次执行的结果都是：Msgbox("一致")。
作如下修改：
Dim Fname,Lname,Fullname,Actual_name,MyComp
Fname= Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("firstname").GetROProperty("value")
Lname=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").WebEdit("lastname").GetROProperty("value")
Actual_name=Browser("管理系统 | 登录").Page("管理系统 | 管理员详细信息").Link("张 彪").GetROProperty("outerText")
Fullname=Fname&" "&Lname
MyComp=StrComp(Fullname, Actual_name, 1)
If MyComp = 0 Then
        Msgbox("一致")
        else
            Msgbox("不一致")
End If

[ 本帖最后由 adiao 于 2008-3-20 08:30 编辑 ]