主题：Order.HoldingInfoByCode2 总是返回 0

问题核实中

Sub myGetHoldingInfo()

    On Error Resume Next
  
    Dim ret
    Dim strAccount,strCode,strMarket
    Dim intBuyHolding,intBuyTodayHolding,dblBuyCost
    Dim intSellHolding,intSellTodayHolding,dblSellCost
    Dim dblProfitAndLoss,dblUsedMargin
   
    strAccount="804982"  '金仕达的金字塔模拟交易帐户
    strCode="IF04"
    strMarket="ZJ"
   
    '手动初始化变量
    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)

    Call Application.MsgOut("取当前品种的持仓合约结果 ret=" & ret)
    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

用下列代码通过宏调用测试，一切正常。

建议你检查 1是否有效的登录了交易账户 2是否有查询的AG06品种的持仓

是的，没有持仓就会返回失败