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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]帐户掉线重新登录导致持仓函数出错的问题~

   

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

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

主题：[求助]帐户掉线重新登录导致持仓函数出错的问题~
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2012/9/3 15:16:29 [显示全部帖子]

那你断线之后全局变量里面的值有变化吗？我测了一下 我的全局变量里面没有变化

 回到顶部
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2012/9/3 16:16:56 [显示全部帖子]

问题正在处理

 回到顶部
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2012/9/3 16:18:44 [显示全部帖子]

Sub Application_VBAStart()
    Call Application.SetTimer(0,500)      '设置一个0号计时器
End Sub

 

Sub Application_Timer(ID)
dim acfl
acfl="80008"'跟踪帐户

 

call Document.SetExtData("ACFL1_isac1",order.IsAccount(acfl))'这个是跟踪帐户


    If ID=0 and order.Account(2)<>"255" then
call Order.HoldingInfoByCode2("if09","zj",BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,acfl)
call Document.SetExtData("ACFL1_thold_if",BuyHolding-SellHolding)


    end if
End Sub

sub vbaend()
    call application.KillTimer(0)
end sub
 回到顶部
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		金字塔数据导出问题  发帖心情 Post By：2012/9/3 16:19:03 [显示全部帖子]

代码改下 我这里测了 用上面的vba就没你那问题了

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 00.03418 秒, 6 次数据查询