查看完整版本: 调用datapool时的问题

调用datapool时的问题

回放时，只读数据池中的第一行数据，下面的数据就不再读了，各位高手，可否帮我看一下问题出在哪里？谢谢sdlkfj5
脚本如下：
'$Include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    Dim num As Integer
    Dim Dp_Result As Integer
    Dim Dp_Id As Long
    Dim ET_ID As string
    Dim P_S As string
    Dim x As Integer
    num=InputBox("输入登录的个数：")
    x=1
    while x<=2
    StartApplication "E:\ET5.1\et_cui.exe"
      
      
   Dp_Id=SQADatapoolOpen("login",FALSE,SQA_DP_SEQUENTIAL,FALSE)
   Dp_Result=SQADatapoolFetch(Dp_Id)
   
   DelayFor (3000)
   
      
    Dp_Result=SQADatapoolValue(Dp_Id,"ET_ID",ET_ID)
    Dp_Result=SQADatapoolValue(Dp_Id,"P_S",P_S)

    Dp_Result=SQAdatapoolFetch(Dp_Id)

    Window SetContext, "Caption=E:\ET5.1\et_cui.exe", ""
    Window Click, "", "Coords=129,51"
    InputKeys "login 34  client.voipstunt.com 20000 "
    InputKeys ET_ID
    InputKeys " "
    Inputkeys P_S
    Inputkeys "{ENTER}"
    DelayFor (8000)
   
    x=x+1
    wend   
    Dp_Result=SQADatapoolClose(Dp_Id)

End Sub

"Dp_Id=SQADatapoolOpen("login",FALSE,SQA_DP_SEQUENTIAL,FALSE)
   Dp_Result=SQADatapoolFetch(Dp_Id)"

试试先执行这两句,然后再循环,就是说把这两句放在循环之外,看看行不.

楼上的是正确的
SQAdatapoolopen在while循环体内，则每次都类似于重新打开datapool，游标会一直在首行

多谢咯，嘻嘻