明明账号上持有仓位 为什么会获取失败
下面代码:
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
不是参数问题哈 市场代码发问时忘了改过来了
Result = Order.HoldingInfoByCode("if06,"zj",Hold,MktPrice,AvgPrice,MktValue,AgeCost,PNL)
HoldingInfoByCode 是取得IB外盘的函数,内盘要用 HoldingInfoByCode2