版主帮个帮,急用,读datapool到第二个数据就读不出了

djw1999

dp=SQADatapoolOpen("ID_Data")
   
    for x=1 to 2
   
  Call SQADatapoolFetch(dp)
    '从数据池中读取记录
    Call SQADatapoolValue(dp,1,ID)
   
    '将从数据池中读取的数据赋予相应变量
     Call SQADatapoolClose(dp)
    '关闭数据池
    '=================================   
    URLa=ID
    URLb="www.cnta.com/10-lxs/view.asp?id="
    URL=URLb+URLa
   
    StartBrowser URL, "WindowTag=WEBBrowser"

    DelayFor (15000)
      
    Window SetTestContext, "Caption=中国旅游网 - Microsoft Internet Explorer", ""

    Result=SQAGetProperty("Type=HTMLTableCell;Index=8","innerText",manager)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=10","innerText",commissary)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=12","innerText",address)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=14","innerText",post)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=16","innerText",Email)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=18","innerText",tel)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=20","innerText",license)
    Result=SQAGetProperty("Type=HTMLTableCell;Index=22","innerText",fax)
   
    sum=manager+"/"+commissary+"/"+address+"/"+post+"/"+Email+"/"+tel+"/"+license+"/"+fax

    open "c:\Test.txt" for Append as #1
    print #1,sum
    close #1
    Window CloseWin, "", ""

    next
    Call SQADatapoolClose(dp)



我读到第二个就读不出了,我数据池中只有两个数据,为什么呢,请版主帮忙

[ Last edited by djw1999 on 2005-3-7 at 22:31 ]

pcl2004_27

你的脚本代码编写的不利于调试，datapool的调用没有返回值！到底是否调用成功，你无法确认！
代码如下：
'$Include "sqautil.sbh"
DIM dp_id as Long
DIM dp_Result as Long
dp_id = SQADatapoolOpen ("repo_dp1", FALSE, SQA_DP_SEQUENTIAL, FALSE)
dp_Result = SQADatapoolFetch (dp_id)
dp_Result = SQADatapoolClose (dp_id)

你调试的过程中，察看variable窗口，dp_result返回值是否成功！才能判断是否读取成功！