Sub GetAllHolding()
  dim HoldingCount
  dim i
  
 dim BuyHolding
 dim BuyCost
 dim BuyTodayHolding
 dim SellHolding
 dim SellCost
 dim SellTodayHolding
 dim PNL
 dim UseMargin
 dim Code
 dim Market

  HoldingCount=Order.Holding2()
  application.MsgOut HoldingCount
  If HoldingCount>0 then
   For i=0 to HoldingCount-1
    Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market)

    \'如果上面那句能准确提取持仓信息，下面那句可以不要，可是现在的问题是上面的提出的价格不对，只好增加一句，提取上一句返回的Code的持仓信息
    Call Order.HoldingInfoByCode2(Code,Market,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin)

    application.msgout Code
    application.msgout BuyHolding

    application.msgout BuyTodayHolding

    application.msgout BuyCost
    application.msgout SellHolding
    application.msgout SellTodayHolding
    application.msgout SellCost
   Next
  End if
 End Sub

请金字塔开发人员测试，并修改这个问题，同时，帮助文件中的这两个方法的例子程序，holding都写成了hoding,导致后面你如果写成正确的单词反而取不到值，也请修改。

如果要自己解决，得取合约信息，通过计算获取正确的开仓价。

buyCost/合约乘数

问题只在特定情况出现还是每次都出现?