咨询内容：Sub Test() dim longPosition,shortPosition,allPositionOrder.HoldingCalc=1longPosition=order.GetTholding("IF03","ZJ","",0)shortPosition=order.GetTholding("IF03","ZJ","",1)allPosition=order.GetTholding("IF03","ZJ","",-1)application.MsgOut longPositionapplication.MsgOut shortPositionapplication.MsgOut allPositionEnd Sub 结果:000 但实际有一手空单,在帐户栏上也有显示
打印本文
关闭窗口