offset=3

 count = order.ordernum2

 for i = 0 to count-1
  call order.orderinfo2(index, orderid, consign, filled, remaining, action, ordertype, lmtprice,auxprice, account, code, market)
  if ordertype=0 then 
   order.contract code,market,multiplier,mintick,shortpercent,longpercent
   set report1 = marketdata.getreportdata(code,market)
   
   if abs(report1.newprice-lmtprice)>=offset*mintick then
    call order.cancelorder(orderid)
        
    if action=0 and kaiping=0 then
     order.buy 0,remaining,report1.newprice,0,code,market,account,0
    end if
    
    if action=0 and kaiping=1 then
     order.sell 0,remaining,report1.newprice,0,code,market,account,0
    end if
    
    if action=1 and kaiping=0 then
     order.buyshort 0,remaining,report1.newprice,0,code,market,account,0
    end if
    
    if action=1 and kaiping=1 then
     order.sellshort 0,remaining,report1.newprice,0,code,market,account,0
    end if    
   end if
  end if  
 next

這些參數(shù)貌似都沒(méi)有地方查?；蛘呓o一個(gè)可以查的鏈接。非常感謝

TBUY(1,Filled,Code) 是perl后臺(tái)語(yǔ)句，不能用在vba代碼段中，在vba代碼中得用Order對(duì)象的buy方法

建議學(xué)習(xí)一下我發(fā)布的vba代碼范例中的order對(duì)象

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642