主题：增减自选品种刷新问题

版主:我需要将自选板块中的所有品种全部清除，但怎么都需要按几次按钮才能清除完毕，一次只能清除一部分，请教怎样才能全部清除？代码如下：

Sub Look_CommandButton8_Click()

  Set Grid = Technic.GetGridByName("Main")
  Market=Grid.Market
  Code=Grid.StockLabel
  Set Table = Technic.GetGridByName("Main3").GetTable()
  call Table.SwitchBlock("监控",1)
  Set block = CreateObject("stock.block")
  block.Open "监控", 1
  For i = 0 To block.Count - 1
       block.removeat (i)
  Next
  block.tosave "自选","监控"

  call Table.SwitchBlock("监控",1)
End Sub