以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  这段代码有问题吗?  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=55772)

--  作者:allanhoo
--  发布时间:2013/8/27 10:39:16
--  这段代码有问题吗?
我想把手上的仓都平掉,为什么下面这段代码做不了了?以前老版本还可以的!
PendingCount = Order.Holding2
    For i = 0 to PendingCount - 1
        Call Order.HoldingInfo2(i, BuyHoding, BuyCost, BuyTodayHoding, SellHoding, SellCost, SellTodayHoding,PNL,UseMargin,Code,Market,Account)
        call Application.MsgOut(Code)  
        call Application.MsgOut(i+1)  
        call Application.MsgOut(BuyHoding)  
        call Application.MsgOut(BuyTodayHoding)  
        call Application.MsgOut(SellHoding)  
        call Application.MsgOut(SellTodayHoding)  
       
        
        if BuyHoding > 0 then 
            Call Order.Sell(1,BuyHoding,Price,0,Code,Market,"",0)
            call Application.MsgOut("Duo")
  
        end if 
        if SellHoding > 0 then 
            Call Order.Sellshort(1,SellHoding,Price,0,Code,Market,"",0)
            call Application.MsgOut("Kong")
  
        end if 
    Next

--  作者:allanhoo
--  发布时间:2013/8/27 11:28:03
--  
这是输出!
IF09
1
0
0
0
0
IF09
2
0
0
0
0



--  作者:allanhoo
--  发布时间:2013/8/27 11:28:55
--  
这说明应该有持仓,为什么BuyHoding和SellHoding拿不到值?
--  作者:rushtaotao
--  发布时间:2013/8/27 13:03:16
--  
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=52460
用这代码试试

--  作者:allanhoo
--  发布时间:2013/8/27 14:11:27
--  
看不出什么区别,但是ok!谢谢!