dim BuyHoding dim BuyTodayHoding dim SellHoding dim
SellTodayHoding dim BuyCost dim SellCost dim PNL Dim
UseMargin
'取指定持仓品种信息 Result=Order.HoldingInfoByCode2(mycode,mymarket,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin,"") If
Result <> 1 Then Exit Sub End If