以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  marketcount  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=62258)
--  作者：李亚弟
--  发布时间：2014/3/3 15:58:43
--  marketcount

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:userform1.rar


图片点击可在新窗口打开查看此主题相关图片如下：marketcount.png
图片点击可在新窗口打开查看
代码：

Sub UserForm1_CommandButton1_Click()   
    dim a,i
    dim mar
    a=marketdata.MarketCount
    application.MsgOut "a="& a
    for i=0 to i=a-1
        set mar=marketdata.GetMarketByIndex(i)
        application.MsgOut mar.name & "  "
    next
End Sub

输出 a=30，可是却只输出了一个market.name
--  作者：fly
--  发布时间：2014/3/4 13:24:13
--  
请您耐心等待