主题：取持仓失败

Sub gethold(iLabel,imarket,buyhold,sellhold)

'取指定品种合约的今持信息

dim BuyHoding

dim BuyTodayHoding

dim SellHoding

dim SellTodayHoding

dim BuyCost

dim SellCost

dim PNL

Dim UseMargin

buyhold=0

sellhold=0

'取指定持仓品种信息

application.msgout time & " gethold参数,iLabel:" & iLabel &" imarket:" & imarket

Result = Order.HoldingInfoByCode2(iLabel,imarket,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,"")

If Result <> 1 Then

  application.msgout time & "gethold程序取持仓失败"

  Exit Sub

else

  buyhold=BuyTodayHoding   

  sellhold=SellTodayHoding

End If

End Sub

一直输出取持仓失败.何故?输入参数是对的