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/合約乘數

問題只在特定情況出現還是每次都出現?