主题：[求助]求助代码

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping,Account, AccountType)

 '账户类型 0 IB 1 CTP 2 金仕达 3其他

Dim sStatus       '成交状态 

If AccountType=0 then

sAccType="0.IB"

ElseIf AccountType=1 then

sAccType="1.CTP"

ElseIf AccountType=2 then

sAccType="2.金士达"

End if 

 

If AccountType=0 then

sStatus="FILLED"

ElseIf AccountType=1 then

sStatus="TRADEING"

lseIf AccountType=2 then

sStatus="FILLED"

End if

 

If UCase(Status)="FILLED" then  '只跟踪成交的单 

if Aspect=0 and Kaiping=0 then '买入

Call Document.SetExtString("Order-Buy-time",time)     '成交时间

Call Document.SetExtData("Order-B-Price",Price)   '成交价格

Call Document.SetExtData("Order-B-Vol",Filled)   '成交手数

Call Document.SetExtData("Order-B-OrderID",OrderID)  '成交单号

end if

      End if 
    End Sub