Axin 发表于 2005-4-19 11:37:59

验证点问题

按精华区，弄了这一脚本。发现验证点有问题。

'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
    dim dp as long
    dim x as integer
    dim num1 as string
    dim num2 as string
    dim sum as string

   
    'Initially Recorded: 2003-7-188:51:18
    'Script Name: Calcular

    StartApplication "C:\WINDOWS\system32\calc.exe"
   
    dp=SQADatapoolOpen("jsq")

    for x=1 to 3
    Call SQADatapoolFetch(dp)
    Call SQADatapoolValue(dp,1,num1)
    Call SQADatapoolValue(dp,2,num2)
    Call SQADatapoolValue(dp,3,sum)
    Window SetContext, "Caption=Calculator", ""
    InputKeys num1 &"{+}"& num2 &"{ENTER}"
   
    Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")
   
    next
   
    Call SQADatapoolClose(dp)

    Window CloseWin, "", ""

End Sub




如果把   Result = LabelVP (CompareNumeric, "Text="& sum &".", "VP=Alphanumeric;Value="& sum &".")这行注掉，可以回放，也能看到系统读datapool中的三组数据。

不注掉，则通不过。

robot 2003
jsq　datapool中弄了三列数据num1,num2和sum

分别为:
1,2,3
3,3,6
3,2,5

请问问题出在哪？要怎么改动？

司空公子 发表于 2005-4-19 17:36:30

人家只是将思路写出来，具体的要根据没个人的情况进行调试的。
在我机上验证点语句如下
    Result = EditBoxVP (CompareNumeric, "ObjectIndex=1", "VP=Alphanumeric;Value="& sum)
调试通过
页: [1]
查看完整版本: 验证点问题