版主:我用两个按钮向自选板块中增加品种和减少品种,但必须按两次才能将品种增加到表中或从表中清除,不知什么原因,请帮忙解答谢谢!
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("监控",1) '“监控"切换动态牌自选分类下的自定义板块
Set block = CreateObject("stock.block")
block.Open "监控", 1
block.AddStock Market,Code
block.tosave "自选","监控"
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("监控",1)
Set block = CreateObject("stock.block")
block.Open "监控", 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 "自选","监控"
Table.Refurbish
End Sub