主题：[求助]如何实现跟限价单？

以下内容为程序代码:

1
2 Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
3 if Status="Tradeing" and filled＞0 and Account="800007" and StrComp(Code,"IF12")＜＞0 then
4 'if Status="Tradeing" and filled＞0 and Account="800007" then
5
6 Call Order.HoldingInfoByCode2(Code, Market, BuyHoding_1, BuyCost_1, BuyTodayHoding_1, SellHoding_1, SellCost_1, SellTodayHoding_1, PNL_1, UseMargin_1,Account)
7 Call Order.HoldingInfoByCode2(Code, Market, BuyHoding_2, BuyCost_2, BuyTodayHoding_2, SellHoding_2, SellCost_2, SellTodayHoding_2, PNL_2, UseMargin_2,"800052")
8
9 if round(BuyHoding_1/3)＞BuyHoding_2 then order.Buy 1,round(BuyHoding_1/3)-BuyHoding_2,0,0,code,market,"800052",0
10 if round(BuyHoding_1/3)＜BuyHoding_2 then order.Sell 1,BuyHoding_2-round(BuyHoding_1/3),0,0,code,market,"800052",0
11 if round(SellHoding_1/3)＞SellHoding_2 then order.Buyshort 1,round(SellHoding_1/3)-SellHoding_2,0,0,code,market,"800052",0
12 if round(SellHoding_1/3)＜SellHoding_2 then order.sellshort 1,SellHoding_2-round(SellHoding_1/3),0,0,code,market,"800052",0
13
14 end if
15 End Sub