vb获取最新未完成的k线数据有误

netwalker

需实现的功能：在每一个分笔数据到来的时候，获得最新的未完成的k线数据（高开低收）

思路如下：在Technic_Paint（）获取相关的数据，但发现获取到的k线数据偶尔会出现一个tick的延迟。请问如何解决？

代码如下：

Sub Technic_Paint()
                Set Grid = Technic.GetGridByName("Main")
                Set History = Grid.GetHistoryData()
                Set ReportData = Grid.GetReportData()

                '过滤重复行情
                if last_time<>ReportData.Date Then
                        last_time=ReportData.Date
                       
                        NewPrice=ReportData.NewPrice
                        stkLable=ReportData.Label
                        stkName=ReportData.StockName
                        Application.Msgout time() & "---ReportTime:" & ReportData.Date & ",Code:" & stkName & ",NewPrice:" & NewPrice       
                       
                        close = History.Close(History.Count-1)
                        open = History.Open(History.Count-1)
                        high = History.High(History.Count-1)
                        low = History.Low(History.Count-1)
                        dt=history.Date(History.Count-1)                                       
                        Application.Msgout "notify_time:" & Cdate(Now) & ", bar_time:" & Cdate(dt) & "  bardata  close:" & close & ",high:" & high & ",low:" & low & ",open:" & open
                          
                        debug("----------------------------------------------------------")                       
                end if
End Sub


结果如下：

技术008

你不要加时间过滤呢，可能两笔tick时间一样被你过滤了

另外你可以试下不要再框架刷新里面抓取数据，框架不是实时刷新的
你直接代码里去订阅品种

netwalker

最开始的时候在订阅的时候刷新，出现有同样的问题，我想是不是最新的bar没有合成，我才想到在框架刷新时去取数据。我试一下不过滤看看

技术008

订阅品种如果出现问题，那么一个可能是行情接受卡住了