Order.HoldingInfoByCode2 总是返回 0 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔版本:2.983测试版

金字塔帐户类型:机构版

下面的代码总是返回 0 :

Dim ret

Dim strAccount,strCode,strMarket

Dim intBuyHolding,intBuyTodayHolding,dblBuyCost

Dim intSellHolding,intSellTodayHolding,dblSellCost

Dim dblProfitAndLoss,dblUsedMargin

strAccount="000000" '实际用的是金仕达的金字塔模拟交易帐户: 805xxx

strCode="AG06"

strMarket="SQ"

'刷新账户的持仓显示

Call Order.HoldingRefurbish(strAccount)

'取当前品种的持仓合约信息

ret=Order.HoldingInfoByCode2(strCode,strMarket,intBuyHolding,dblBuyCost,intBuyTodayHolding,intSellHolding,dblSellCost,intSellTodayHolding,dblProfitAndLoss,dblUsedMargin,strAccount)

If ret <>1 Then

Call MsgBox("取当前品种的持仓合约信息失败! ret=" & ret)

Exit Sub

End If

主题：Order.HoldingInfoByCode2 总是返回 0