主题：取持仓失败

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 & " iLabel:" & iLabel &" imarket:" & imarket

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

If Result <> 1 Then

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

  Exit Sub

else

  buyhold=BuyTodayHoding    

  sellhold=SellTodayHoding

End If

End Sub

9:08:13 iLabel:C05 imarket:DQ

9:08:13gethold程序取持仓失败

9:08:14 iLabel:C05 imarket:DQ

9:08:14gethold程序取持仓失败

9:08:19 iLabel:C05 imarket:DQ

9:08:19gethold程序取持仓失败