帮我看看我的问题出在什么地方

yingy

'$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


   
      'Script Name: 计算器

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

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

    Window CloseWin, "", ""

End Sub
这是一个简单的"WINDOWS CALC"程序，回放的时候发现不能正确运行，请帮我看看问题出在什么地方   
注释：在datapool中已经编辑了数据，但是运行失败

[ 本帖最后由 yingy 于 2008-3-18 14:43 编辑 ]

irene0331223

应该是验证点的文题吧，要不先调试看看数据池的值能否正确读出。

net_ufo

看一下验证点比较器，"VP=Alphanumeric;Value="& sum &"." ，这个最后面不加 "." 试试

ilovejolly

乱试什么，调一下就知道问题出在哪了