欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]帮我看下这段代码有什么毛病...

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有4528人关注过本帖树形打印复制链接

主题:[求助]帮我看下这段代码有什么毛病...

帅哥哟,离线,有人找我吗?
bbking
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1609 积分:4924 威望:0 精华:0 注册:2010/10/28 14:02:46
[求助]帮我看下这段代码有什么毛病...  发帖心情 Post By:2012/9/3 13:12:58 [显示全部帖子]

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)
 
dim acfl1
acfl1="800007"'跟踪帐户
if Status="Tradeing" and filled>0 and Account=acfl1 and code="if09" then
 
if aspect=0 then

call Document.SetExtData("ACFL1_thold_if",document.GetExtData("ACFL1_thold_if")+filled)
end if
 
if aspect=1 then
  
call Document.SetExtData("ACFL1_thold_if",document.GetExtData("ACFL1_thold_if")-filled)
end if
 
end if

End Sub

 

=====================

买入N手外生全局变量就加上N手

卖出N手外生全局变量就减去N手~

但是无论我怎么操作那个ACFL1_thold_if还是等于0...

[此贴子已经被作者于2012-9-3 13:21:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
bbking
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1609 积分:4924 威望:0 精华:0 注册:2010/10/28 14:02:46
  发帖心情 Post By:2012/9/3 15:54:09 [显示全部帖子]

以下是引用guotx2010在2012-9-3 15:05:33的发言:

if aspect=0 then 你想表示的是买入开仓,可是买入平仓也会成立的,所以应该加上kaiping的判断吧

if aspect=0 and kaiping=0 then

 

这个无所谓开平~

只要是买入1手那个全局变量就+1

卖出就-1

但是我这段代码ACFL1_thold_if一直等于0~

我有点不明白


 回到顶部