欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]请教这个持仓量问题,测试了,但没有数据

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5208人关注过本帖平板打印复制链接

主题:[求助]请教这个持仓量问题,测试了,但没有数据

帅哥哟,离线,有人找我吗?
明心
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
[求助]请教这个持仓量问题,测试了,但没有数据  发帖心情 Post By:2010/8/8 13:43:18 [只看该作者]

Function mxcc(Formula)
    mxcc=0
    Set Grid = Technic.GetGridByName("Main")
    Set Market = grid.GetMarketinfo()
    sc = market.id

    
    '得到该窗格所对应的动态行情对象
    Set ReportData = Grid.GetReportData()
    Label = ReportData.Label
    lab = Left(Label,2)

    
     '得到市场所有品种
 Count = MarketData.GetReportCount(sc)
 
 For i = 0 To Count-1
  Set Report1 = MarketData.GetReportDataByIndex(sc,i)

  if Left(Report1.Label,2) = lab Then

   if Right(Report1.Label,2) >= "01" And Right(Report1.Label,2) <= "12" Then
    If Report1.Volume >0 Then
     mxcc = mxcc+Report1.Volume
    End if
   end if
  End if
 Next
   
End Function

 

公式中调用这个函数,没有数据显示

[此贴子已经被作者于2010-8-8 13:52:14编辑过]

 回到顶部