关于datapool中数据与验证点的关联问题，求助！

村上舞!舞!舞

试试
Result = EditBoxVP (CompareNumeric, "Type=EditBox;Name=TextBox1", "VP=Alphanumeric;Value=" & a)

chj2046

第一个验证点通过了，但是第二个验证点中
Result = EditBoxVP (CompareNumeric, "Type=EditBox;Name=TextBox1", "VP=Alphanumeric;Value="&a)
这段在testmanager中出现"playback warning"导致测试错误，请问我在代码中是否设计的不符合要求？

chj2046

我的datapool是
a
2
4

chj2046

问题出在哪？

村上舞!舞!舞

楼主，我完全照你的做法做了一个windows自带计算器的例子给你希望你能好好的研究一下，不难的，相信研究后对你很有用。另外真是佩服楼主的精神。自己一点都不想去想想的吗？
我的数据池数据是一列字段
2
6
8
脚本代码：
'$Include "sqautil.sbh"
Sub Main
    Dim Result As Integer
   
    'Initially Recorded: 2009-2-18  16:47:20
    'Script Name: test3
   
    Dim dp_id,dp_Result as long
    Dim Str1 as string
    Dim i as integer


    dp_id = SQADatapoolOpen ("51test", FALSE, SQA_DP_SEQUENTIAL, FALSE)
   

    call SQADatapoolFetch (dp_id)
    call SQADatapoolValue(dp_id,1,Str1)
   ' call SQADatapoolRewind (dp_id)
    msgbox Str1

   
    Window SetContext, "Caption=计算器", ""
    PushButton Click, "Text=1"
    PushButton Click, "Text=+"
    PushButton Click, "Text=1"
    PushButton Click, "Text=="
   

    Window SetTestContext, "Caption=计算器", ""
    Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value=" & Str1)
    Window ResetTestContext, "", ""
    if Result=0 then
        sqalogmessage sqaWarning,"计算机验证失败",""
    end if
    msgbox Result

    call SQADatapoolFetch (dp_id)
    call SQADatapoolValue(dp_id,1,Str1)
    msgbox Str1
   
    Window SetContext, "Caption=计算器", ""
    PushButton Click, "Text=3"
    PushButton Click, "Text=+"
    PushButton Click, "Text=3"
    PushButton Click, "Text=="
   
    Window SetTestContext, "Caption=计算器", ""
    Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value=" & Str1)
    Window ResetTestContext, "", ""
    if Result=0 then
        sqalogmessage sqaWarning,"计算机验证失败",""
    end if
    msgbox Result
   
    dp_Result = SQADatapoolClose (dp_id)
end sub

chj2046

这个脚本被我放在一边很长时间一直没空去弄（学校规定的作业，并不是出于我本身意愿。我是学网站编程，测试以及robot这个工具还是第一次接触），而且这个脚本的功能我也清楚很基础，可是我至今我能查到的资料包括软件再带的help中没有关于这点问题的例子和说明，搞的我也不知道从哪里开始下手。不过还是谢谢你肯花时间帮我搞清这问题！

dajuanjuan87

chj2046

遇到新问题了。。。。。在比较字母时（验证点的第二种），Result = EditBoxVP (CompareText, "Type=EditBox;Name=TextBox1", "VP=Alphanumeric;Type=CaseInsensitive")
基准值为error!
可这种验证点没有value值怎么比较？还是说是与数字的值比较机制不同？