- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 关于通过VBA进行K线平移后的刷新问题 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=6160)
-- 发布时间：2011/4/15 9:16:20
-- 关于通过VBA进行K线平移后的刷新问题
在VBA中进行K线平移，目的是想看指定日期的1分钟K线，手动定位太费劲了。
看到以前的一个帖子，
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=4432&skin=0
同时参考帮助文件中Grid的下述说明：
ShowCount 窗格显示数据量，可与Grid.StartShowIndex配合可以实现画面平移，可读写
StartShowIndex 窗格第一个显示数据的基于0的索引，可与Grid.ShowCount配合可以实现画面平移，可读写
写了下面一段代码：
Sub TestShow_cbShow2_Click()
Set MGrid = Technic.GetGridByName("Main")
pos = MGrid.PosByDate(CDate("2011/03/11 13:13"))
MGrid.StartShowIndex=pos
MGrid.ShowCount=500
Technic.Refresh
End Sub
在执行之后，移动的位置和每屏显示的K线根数没有问题，
可是Y轴坐标没有进行同步更新，导致K线还是按照移动之前的Y轴坐标显示。
尝试设置了Grid中的下面两个属性，可是都没有效果：
SyncAxis 如果窗格不显示Y坐标时，是否需要与其他关联的 窗格保持Y轴上的同步，可读写。
IsKXianBD 为1则坐标最大最小紧随K线变动,反之为0,可读写
最后试着手动设置Grid的MaxPrice和MinPrice属性，主图OK了，可是公式区还是有同样的Y轴问题。
请问，出现这样的Y轴不同步的问题，是因为上面的这段代码缺少了什么样的刷新语句吗？
谢谢
-- 发布时间：2011/4/15 22:47:42
--
试试 InitAllGrid
-- 发布时间：2011/4/18 14:39:04
--
各种InitAllGrid、ReCalcAllGridFromula、ReCalcAllGrid，以及Grid里面的ReInitData、ReInitDataFormula、ReInitFormula都试过了，无效啊~~
