以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请问如何取得自选股板块 每个品种的代码和市场信息  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=5402)
--  作者：beensu
--  发布时间：2011/3/8 23:07:59
--  请问如何取得自选股板块 每个品种的代码和市场信息

请问如何取得自选股板块 每个品种的代码和市场信息

 Set block = CreateObject("stock.block")
 
 block.Open "自选股", 1
 For i = 0 To  block.Count-1
  Set Report1 = MarketData.GetReportDataByIndex("自选股",i) 好像不对

 MsgBox   Report1.label
 Next
--  作者：beensu
--  发布时间：2011/3/9 0:46:54
--  

已解决 请斑竹删除