增減自選品種刷新問(wèn)題　[金字塔]

版主：我用兩個(gè)按鈕向自選板塊中增加品種和減少品種，但必須按兩次才能將品種增加到表中或從表中清除，不知什么原因，請(qǐng)幫忙解答謝謝！

Sub Look_CommandButton7_Click()
   Set Grid = Technic.GetGridByName("Main") 
   Market=Grid.Market
   Code=Grid.StockLabe                                         
  Set Table = Technic.GetGridByName("Main3").GetTable()    '窗格Main3為表        

  Call Table.SwitchBlock("監(jiān)控",1)                                           '“監(jiān)控"切換動(dòng)態(tài)牌自選分類下的自定義板塊
  Set block = CreateObject("stock.block")
  block.Open "監(jiān)控", 1 
  block.AddStock Market,Code

  block.tosave "自選","監(jiān)控"
  Table.Refurbish
End Sub

Sub Look_CommandButton8_Click()

   Set Grid = Technic.GetGridByName("Main") 
   Market=Grid.Market
   Code=Grid.StockLabel
   Set Table = Technic.GetGridByName("Main3").GetTable()              
   call Table.SwitchBlock("監(jiān)控",1)                           
   Set block = CreateObject("stock.block") 
   block.Open "監(jiān)控", 1
   For i = 0 To block.Count - 1
      IF block.GetStockMarket(i)=Market AND block.GetStockCode(i)=Code THEN
         block.removeat (i)
     END IF
   Next
   block.tosave "自選","監(jiān)控"
   Table.Refurbish
End Sub

Call Table.SwitchBlock("監(jiān)控",1)   加到代碼末行，再次切換到監(jiān)控板塊就可以了。

謝謝版主，問(wèn)題解決！

版主:我需要將自選板塊中的所有品種全部清除，但怎么都需要按幾次按鈕才能清除完畢，一次只能清除一部分，請(qǐng)教怎樣才能全部清除？代碼如下：

Sub Look_CommandButton8_Click()

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

  call Table.SwitchBlock("監(jiān)控",1)
End Sub

For i = 0 To block.Count - 1
這一行倒過(guò)來(lái)寫，從大到小，如：

iCount=block.count-1

For i=icount to 0 step -1