請問大師能否把這個代碼做一個注釋啊？

作者：金字塔來源：cxh99.com 發(fā)布時間：2015年01月25日

咨詢內(nèi)容：
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ù)貌似都沒有地方查。或者給一個可以查的鏈接。非常感謝
金字塔客服： Public ExcelApp, iRowNo, iStartPingDuo, iStartPingKong, AccountCountPublic iMultipliter

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType) '賬戶類型 0 IB 1 CTP 2 金仕達 Dim sStatus '成交狀態(tài)
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" ElseIf AccountType = 2 Then sStatus = "FILLED" End If If UCase(Status) = sStatus Then '只跟蹤成交的單 WriteTradeLog OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account End IfEnd Sub''''''''''''''''''''''''''''''''''''''''''Sub WriteTradeLog(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, AccountCode) Dim i, j Dim sSheetName, TradeSxf On Error Resume Next
If iStartPingDuo = 0 Then iStartPingDuo = 1 End If If iStartPingKong = 0 Then iStartPingKong = 1 End If If Kaiping = 0 Then '開倉 TBUY(1,Filled,Code) Else '平倉 If Aspect = 1 And Kaiping >= 1 Then '平多 End If If Aspect = 0 And Kaiping >= 1 Then '平空 End If End If
End Sub

TBUY(1,Filled,Code) 我想開倉，截獲的品種和數(shù)量，但是系統(tǒng)提示，這樣是不行。請問大神，這個代碼要怎么寫？
[此貼子已經(jīng)被作者于2014/10/31 11:43:37編輯過]
用戶回復(fù)：
TBUY(1,Filled,Code) 是perl后臺語句，不能用在vba代碼段中，在vba代碼中得用Order對象的buy方法

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

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

[此貼子已經(jīng)被作者于2014/11/1 18:03:36編輯過]
網(wǎng)友回復(fù)： 謝謝

請問 大師能否把這個代碼做一個注釋啊？

請問大師能否把這個代碼做一個注釋啊？