Sub Test()
dim longPosition,shortPosition,allPosition
Order.HoldingCalc=1
longPosition=order.GetTholding("IF03","ZJ","",0)
shortPosition=order.GetTholding("IF03","ZJ","",1)
allPosition=order.GetTholding("IF03","ZJ","",-1)
application.MsgOut longPosition
application.MsgOut shortPosition
application.MsgOut allPosition
End Sub
结果:
0
0
0
但实际有一手空单,在帐户栏上也有显示
3.1版确实有这个问题,3.11BETA3版问题已经解决,请等待发布的新版