关于order下单的问题 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

这个Result=ORDER.BUY(....)我感觉肯定有问题,我今天早上,不断重复开仓,就是因为下单成功但Result错误返回0造成的.具体来说

BUYcon=Document.GetPrivateProfileString("OrderCon",tLabel & "BUYCon_" & tIndex,"","D:\SystemSet.ini") '本次触发条件

BUYconL=Document.GetPrivateProfileString("OrderCon",tLabel & "BUYConL_" & tIndex,"","D:\SystemSet.ini") '保存的上次触发条件,以便一根k线一条语句仅执行一遍

if BUYcon<>BUYconL then

order.OrderQueue = 1

orderlog=Date & " " & Time & ",账户:" & tAcc & "," & tMarket & tCode & "在VBABUY中下单,手数:" & Num & ",原因:" & BUYcon & "<>" & BUYconL '每句下单命令前都要写入下单日志便于查找原因

Document.DebugFile "D:\OrderLog.txt",orderlog,0

Result=ORDER.BUY(1,Num,0,0,tCode,tMarket,tAcc,0)

if Result=0 then

orderstr="账号:" & tAcc & "," & tMarket & tCode & "," & Num & "手多开下单失败!重点检查账号是否登录"

JIANGE tCode & "orderfail1",orderstr

exit sub

end if

Document.WritePrivateProfileString "OrderCon",tLabel & "BUYConL_"& tIndex,BUYcon,"D:\SystemSet.ini" '我现在是把这句放在if Result=0 then前面,因为发现有时下单成功却result返回0,以致执行了exit sub,后面无法写入tLabel & "BUYConL_"& tIndex,从而不断重复开仓!

ordermsg tCode,tMarket,Num,1

end if

[此贴子已经被作者于2014/9/10 13:26:02编辑过]

主题：关于order下单的问题