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

进一步用下面的代码测试:

Public Sub myGetHoldingInfo()

On Error Resume Next

Dim ret

Dim strAccount,strCode,strMarket

Dim intBuyHolding,intBuyTodayHolding,dblBuyCost

Dim intSellHolding,intSellTodayHolding,dblSellCost

Dim dblProfitAndLoss,dblUsedMargin

strAccount="805115" '金仕达的金字塔模拟交易帐户

strCode="AG06"

strMarket="SQ"

'手动初始化变量

ret=-999

intBuyHolding=0

intBuyTodayHolding=0

dblBuyCost=0

intSellHolding=0

intSellTodayHolding=0

dblSellCost=0

dblProfitAndLoss=0

dblUsedMargin=0

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

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

If ret <>1 Then

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

Call Application.MsgOut("-------------------------------------------")

Call Application.MsgOut(" 合约代码 = " & strCode)

Call Application.MsgOut(" 市场代码 = " & strMarket)

Call Application.MsgOut(" 买入持仓总量 = " & intBuyHolding)

Call Application.MsgOut(" 持仓成本 = " & dblBuyCost)

Call Application.MsgOut(" 今买持总量 = " & intBuyTodayHolding)

Call Application.MsgOut(" 卖出持仓总量 = " & intSellHolding)

Call Application.MsgOut(" 卖出持仓成本 = " & dblSellCost)

Call Application.MsgOut("今卖出持仓总量 = " & intSellTodayHolding)

Call Application.MsgOut(" 浮动盈亏 = " & dblProfitAndLoss)

Call Application.MsgOut(" 保证金占用 = " & dblUsedMargin)

Call Application.MsgOut(" 帐户 = " & strAccount)

Call Application.MsgOut("-------------------------------------------")

End If

If Err.Number<>0 Then

Call Application.MsgOut("取当前品种的持仓合约信息时出错:(" & Err.Source & ")" & Err.Description)

End If

End Sub

结果总是有下面的输出:

取当前品种的持仓合约信息失败! ret=0

-------------------------------------------

合约代码 = AG06

市场代码 = SQ

买入持仓总量 = 0

持仓成本 = 0

今买持总量 = 0

卖出持仓总量 = 0

卖出持仓成本 = 0

今卖出持仓总量 = 0

浮动盈亏 = 0

保证金占用 = 0

帐户 = 805115

-------------------------------------------

主题：Order.HoldingInfoByCode2 总是返回 0