為什么用自己寫的窗口下單，會彈出確認框？ [金字塔]
- 咨詢內容：
請教
為什么用自己寫的窗口下單，會彈出確認框？
昨天還沒有，今天改了幾句代碼就這樣
此主題相關圖片如下：13.jpg
- 金字塔客服：
if not hangqing is nothing then
ctp=Order.StockType(symbol,matketID)
if ctp=1 then
strDate = Cstr(hangqing.Date)
'test_tuoke_Label5.caption = strDate
dim num
dim orderid
dim ConSign
dim Filled
dim R1
dim Action
dim OrderType
dim LmtPrice
dim Account
dim Kaiping
num = Order.OrderInfoByCode2(hangqing.Label,hangqing.marketName, orderid, ConSign, Filled, R1, Action, OrderType, LmtPrice, Account, Kaiping)
application.MsgOut num
if num > 1 then
if lastOrderID = orderid then
CancelCount = CancelCount + 1
else
CancelCount = 0
lastOrderID = orderid
end if
if (CancelCount > 2) then
call Document.DebugFile("D:\OrderLog.Txt", "CancelOrder:%.2f",orderid )
call Order.CancelOrder(orderid)
CancelCount = 0
end if
end if
if CountIndex > 5 then
dim BuyHoding
dim BuyTodayHoding
dim SellHoding
dim SellTodayHoding
dim BuyCost
dim SellCost
dim PNL
Dim UseMargin
call Order.HoldingInfoByCode2(hangqing.label,hangqing.marketname,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin)
if BuyHoding > 0 then
application.MsgOut hangqing.LowerLimitPrice
application.MsgOut hangqing.NewPrice
msg = "Sell= " & hangqing.LowerLimitPrice
msg = msg & " BuyHoding=" & BuyHoding
msg = msg & " num= " & num
call Document.DebugFile("D:\OrderLog.Txt", msg,1)
call Order.Sell(0,BuyHoding,hangqing.LowerLimitPrice,0,hangqing.label,hangqing.marketname,"",0)
CountIndex = 0
end if
end if
txt = " Buy= " & hangqing.UpperLimitPrice
call Document.DebugFile("D:\OrderLog.Txt", txt, 1)
call Order.Buy(0,lots,hangqing.UpperLimitPrice,0,hangqing.label,hangqing.marketname,"",0)
CountIndex = CountIndex + 1
elseif ctp=0 then
msgbox "IB賬戶不支持交易"
end if
end if - 用戶回復：
if not hangqing is nothing then
'test_tuoke_Label1.caption = hangqing.NewPrice
ctp=Order.StockType(symbol,matketID)
if ctp=1 then
strDate = Cstr(hangqing.Date)
'test_tuoke_Label5.caption = strDate
'dim num
'dim orderid
'dim ConSign
'dim Filled
'dim R1
'dim Action
'dim OrderType
'dim LmtPrice
'dim Account
'dim Kaiping
'num = Order.OrderInfoByCode2(hangqing.Label,hangqing.marketName, orderid, ConSign, Filled, R1, Action, OrderType, LmtPrice, Account, Kaiping)
'if num > 1 then
'if lastOrderID = orderid then
'CancelCount = CancelCount + 1
'else
'CancelCount = 0
'lastOrderID = orderid
'end if
'if (CancelCount > 2) then
'call Document.DebugFile("D:\OrderLog.Txt", "CancelOrder:%.2f",orderid )
'call Order.CancelOrder(orderid)
'CancelCount = 0
'end if
'end if
if CountIndex > 5 then
dim BuyHoding
dim BuyTodayHoding
dim SellHoding
dim SellTodayHoding
dim BuyCost
dim SellCost
dim PNL
Dim UseMargin
call Order.HoldingInfoByCode2(hangqing.label,hangqing.marketname,BuyHoding,BuyCost,BuyTodayHoding,SellHoding,SellCost,SellTodayHoding,PNL,UseMargin)
if SellHoding > 0 then
application.MsgOut hangqing.UpperLimitPrice
application.MsgOut hangqing.NewPrice
msg = "SellShort= " & hangqing.UpperLimitPrice
msg = msg & " SellHoding=" & SellHoding
msg = msg & " num= " & num
call Document.DebugFile("D:\OrderLog.Txt", msg,0)
call Order.SellShort(0,SellHoding,hangqing.UpperLimitPrice,0,hangqing.label,hangqing.marketname,"",1)
'msgbox hangqing.UpperLimitPrice
'msgbox SellHoding
CountIndex = 0
end if
end if
txt = " BuyShort= " & hangqing.NewPrice
call Document.DebugFile("D:\OrderLog.Txt", txt, 0)
call Order.BuyShort(0,lots,hangqing.NewPrice,0,hangqing.label,hangqing.marketname,"",1)
CountIndex = CountIndex + 1
elseif ctp=0 then
msgbox "IB賬戶不支持交易"
end if
end if - 網友回復：
2樓的代碼直接下單，3樓的代碼就會彈出一樓的提示。
是在搞不懂這連個代碼有什么區別。
注銷部分是撤單的部分，應該不影響。
- 網友回復： 非交易時段下單時，就是會彈出對話框的，因為需要對話框彈出讓你來調整預埋單還有價格
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊