主题：求一自编函数

function ORDERNUM(a)

dim temp
 for i=0 to order.OrderNum2-1
 call order.OrderInfo2(i, OrderID, ConSign, Filled, Remaining, Action, OrderType, LmtPrice, Account, Kaiping, Code, Market) 
if LmtPrice = a then 
temp = Remaining
 end if
 next
ORDERNUM=temp
End Function