在一个脚本中开了2次数据次！怎么解决？

9880953

$Include   "sqautil.sbh"   
  Sub   Main   
  Dim   Result   As   Long   
  Dim   ids   As   LONG   
  Dim   dp_name   as   String   
  Dim   dp_number   as   String     
  Dim   dp_log   as   String   
  dim   num   as   integer   
   
   
  'Initially   Recorded:   2004-3-5   14:20:44   
  'Script   Name:   test   
  ids=SQADatapoolOpen   ("abc",false,SQA_DP_SEQUENTIAL,true)   
   
   
  for   num=1   to   4   
   
  Result   =   SQADatapoolFetch   (ids)   
   
  call   SQADatapoolValue   (ids,   1,   dp_number)   
  msgbox   dp_number   
  next   num   
  Result=SQADatapoolClose   (ids)   
  msgbox   "ok"   

  ids=SQADatapoolOpen   ("abc",false,SQA_DP_SEQUENTIAL,true)   
   
   
  for   num=1   to   4   
   
  Result   =   SQADatapoolFetch   (ids)   
   
  call   SQADatapoolValue   (ids,   1,   dp_number)   
  msgbox   dp_number   
  next   num   
  Result=SQADatapoolClose   (ids)   
  msgbox   "ok"   
   
  End   Sub   

我在一个脚本里面开了2次数据池为什么这样不行啊？～！

有没有什么解决的方法？～！

geniar

原理是可以的，你用F8 调试一下，看程序哪儿出错了

9880953

呵呵～

都知道原理是可以的啊～！～！

但是执行到第2个OPEN的时候确实是取不到值，是因为取出来的第一个就是数据池的最后一个了～！

caoqd

你需要一个把数据池的指针复位的语句,在
Result=SQADatapoolClose   (ids)
这句前边加上
Result=SQADatapoolRewind   (ids)应该就OK拉

caesarqth

SQADatapoolOpen   ("abc",false,SQA_DP_SEQUENTIAL,true) 的第二个变量指定游标到达最后一行后是否回到首行
改成SQADatapoolOpen   ("abc", TURE, SQA_DP_SEQUENTIAL, true)就可以了

可以参考一下SQADatapoolOpen的语法帮助