主题：从板块中删除品种的问题

sub test()
 Set bStock = CreateObject("Stock.Block")
 call bStock.open("股票池",1)
 for i=1 to bStock.count
  call bStock.RemoveAt(i)
  call bStock.toSave("股票池","股票池")
 next
end sub
以上代码的结果是用股票池中的最后一个品种替换了所有品种，而不是删除，怎么做到从板块中删除一个品种，真正少一个品种，而不是替代？

 for i=1 to bStock.count
  call bStock.RemoveAt(i)

  i=i-1
 next
  call bStock.toSave("股票池","股票池")

  晕,整出个死循环

感觉应该是TOSAVE上出的错误.问题是不每次SAVE一下,操作完了,又自动还原了.

TOSAVE吧,可对象是在前面定义了的,保存相当于没有删除品种.

不知道怎么办了

Sub test()
    Set bStock = CreateObject("Stock.Block")
 call bStock.open("自选股",1)
 for i=0 to bStock.count-1
  call bStock.RemoveAt(i)
  i=i-1
 
  if bStock.count < 1 then
  exit for
  end if
 next
 
  call bStock.toSave("自选","自选股")

 

End Sub

 

 

这个代码就可以工作了，但是目前的2.2版在保存空的板块时有个BUG无法保存，已经在下个版本进行了修正。

这个代码在2.1版本也不能工作，清空板块挺有用的希望尽快修复

for i=0 to bStock.count-1
i=i-1
next

这个是死循环啊，哥儿们，你试过这个代码吗？？？

加上下面代码就不是死循环了  

if bStock.count < 1 then
  exit for
  end if
不过现在版本还不能用，希望尽快修复

发错了，请版主删除