以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  为什么获取品种信息会失败  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=79110)

--  作者:cyq220657
--  发布时间:2015/5/28 9:36:28
--  为什么获取品种信息会失败
明明账号上持有仓位 为什么会获取失败
下面代码:
SUB HDIF(Code,MarkeT,NUM)

dim Hold
dim MktPrice
dim AvgPrice
dim MktValue
dim AgeCost
dim PNL



\'取指定持仓品种信息
Result = Order.HoldingInfoByCode("zj","if06",Hold,MktPrice,AvgPrice,MktValue,AgeCost,PNL)

msgbox Result
If Result <> 1 Then
Exit Sub
End If
\'
IF NUM=0 THEN
   HDIFV=Hold \'输出参数,该该持仓品种持仓量,若空仓返回负数

   ELSEIF  NUM=1 THEN 
    HDIFV=MktPrice \' 输出参数,该持仓品种市价
    ELSEIF  NUM=2 THEN 
    HDIFV=AvgPrice \' 输出参数,该持仓品种均价
    
 ELSEIF  NUM=3 THEN 
    HDIFV=MktValue \'输出参数,该持仓品种市值

     ELSEIF  NUM=4 THEN 
    HDIFV=AgeCost   \'输出参数,该持仓品种成本

     ELSEIF  NUM=5 THEN 
    HDIFV=PNL    \' 输出参数,该持仓品种浮动盈亏

    ELSE
     HDIFV=PNL
END IF     
END SUB


--  作者:cyq220657
--  发布时间:2015/5/28 9:39:53
--  
不是参数问题哈 市场代码发问时忘了改过来了
  Result = Order.HoldingInfoByCode("if06,"zj",Hold,MktPrice,AvgPrice,MktValue,AgeCost,PNL)

--  作者:王锋
--  发布时间:2015/5/28 10:22:16
--  
HoldingInfoByCode 是取得IB外盘的函数,内盘要用 HoldingInfoByCode2
--  作者:cyq220657
--  发布时间:2015/5/28 10:35:16
--  
谢谢