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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → 报 价窗格不刷新

   

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

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

主题：报 价窗格不刷新
帅哥哟，离线，有人找我吗？
deni977
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：581 积分：171 威望：0 精华：0 注册：2013/4/2 6:58:20 		报 价窗格不刷新  发帖心情 Post By：2017/2/9 10:22:39 [只看该作者]

请教：

图表MAIN 调出自定义的等价K线，右侧的“报”窗格，就算有新行情来也不刷新，如何设置？
 回到顶部
帅哥哟，离线，有人找我吗？
wenarm
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：26632 积分：0 威望：0 精华：7 注册：2015/4/9 14:59:07 		  发帖心情 Post By：2017/2/9 10:28:10 [只看该作者]

截图看下你的设置。


编程无捷径，技巧靠积累。
 回到顶部
帅哥哟，离线，有人找我吗？
deni977
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：581 积分：171 威望：0 精华：0 注册：2013/4/2 6:58:20 		  发帖心情 Post By：2017/2/9 10:44:30 [只看该作者]

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


加好友 发短信
等级：超级版主 帖子：2266 积分：0 威望：0 精华：0 注册：2016/11/15 9:18:08 		  发帖心情 Post By：2017/2/9 10:47:45 [只看该作者]

图未上传成功。贴图教程  http://www.weistock.com/bbs/dispbbs.asp?BoardID=2&ID=31614&skin=0


图片点击可在新窗口打开查看此主题相关图片如下：论坛贴图第三步.jpg
图片点击可在新窗口打开查看

————————————————————

90%问题均可在历史帖中重现，请善用检索

————————————————————

VIP认证的好处: 帖子将更好更快地被处理

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


加好友 发短信
等级：论坛游侠 帖子：581 积分：171 威望：0 精华：0 注册：2013/4/2 6:58:20 		  发帖心情 Post By：2017/2/9 10:52:19 [只看该作者]

图
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170209105145.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
shq
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：2266 积分：0 威望：0 精华：0 注册：2016/11/15 9:18:08 		  发帖心情 Post By：2017/2/9 10:57:31 [只看该作者]

自定义的等价K线您是怎么创建的？成交的数据取自哪里？


————————————————————

90%问题均可在历史帖中重现，请善用检索

————————————————————

VIP认证的好处: 帖子将更好更快地被处理

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


加好友 发短信
等级：论坛游侠 帖子：581 积分：171 威望：0 精华：0 注册：2013/4/2 6:58:20 		  发帖心情 Post By：2017/2/9 11:03:35 [只看该作者]

订阅了行情，行情数据到来的时候，产生的自定义等价K线


Sub MarketData_ReportNotify(ReportData)
            
            NewPrice=ReportData.NewPrice
            stkLable=ReportData.Label          
           
            'Application.Msgout Cdate(time) & ",Code:" & stkLable & "  ,NewPrice:" & NewPrice
            
            if (StrComp(stkLable,"PB00")=0) then 
            
'             Application.Msgout Cdate(time) & ",Code:" & stkLable & "  ,NewPrice:" & NewPrice
                    set Report1 = marketdata.GetReportData(laoheyue,laoshichang)
'                           close2 = report1.newprice     
' Application.Msgout Cdate(time) & ",Code:" & stkLable & "  ,close2:" & close2
Set NewHistory2 = marketdata.GetHistoryData(xinheyue,xinshichang,0)      '1f
        call application.PeekAndPump        
        if NewHistory2.Count>2 then
        CompareH=NewHistory2.open(NewHistory2.Count-1)
        end if
        mxopen2 = NewHistory2.open(NewHistory2.Count-1)
        mxclose2 = NewHistory2.close(NewHistory2.Count-1)
        mxhigh2 = NewHistory2.high(NewHistory2.Count-1)
        mxlow2 = NewHistory2.low(NewHistory2.Count-1)
        mxDate2 = NewHistory2.Date(NewHistory2.Count-1)                
        close2 = report1.newprice
        mxDate2 = Report1.Date    
        if close2 > mxhigh2 then mxhigh2 = close2 end if
        if close2 < mxlow2  then mxlow2 = close2 end if        
       
        NewHistory2.close(NewHistory2.Count-1) = close2
        NewHistory2.high(NewHistory2.Count-1) = mxhigh2
        NewHistory2.low(NewHistory2.Count-1) = mxlow2
        NewHistory2.Date(NewHistory2.Count-1) = mxdate2  
       

       
        call NewHistory2.SaveData(xinheyue,xinshichang,1) '保存
       
        qj = 20
       
        if abs(close2-mxopen2) > qj then '判断是否达到区间
        '新建一根K线
        call NewHistory2.InsertAt(0)
        NewHistory2.open(NewHistory2.Count-1) = close2
        NewHistory2.close(NewHistory2.Count-1) = close2
        NewHistory2.high(NewHistory2.Count-1) = close2
        NewHistory2.low(NewHistory2.Count-1) = close2
        NewHistory2.Date(NewHistory2.Count-1) = mxdate2
       
        call NewHistory2.SaveData(xinheyue,xinshichang,1) '保存
       
        Application.Msgout " 新建K线成功。"&  Cdate(time) & ",Code:" & stkLable & "  ,NewPrice:" & NewPrice    
        end if  
        call Technic.Refresh       
       
            end if

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


加好友 发短信
等级：超级版主 帖子：2266 积分：0 威望：0 精华：0 注册：2016/11/15 9:18:08 		  发帖心情 Post By：2017/2/9 11:12:44 [只看该作者]

VBA相关问题请前往高级功能研发区 http://www.weistock.com/bbs/index.asp?boardid=5 发帖求助。


————————————————————

90%问题均可在历史帖中重现，请善用检索

————————————————————

VIP认证的好处: 帖子将更好更快地被处理

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