共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：关于通过VBA进行K线平移后的刷新问题
1楼
ahou 发表于：2011/4/15 9:16:20在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轴不同步的问题，是因为上面的这段代码缺少了什么样的刷新语句吗？
谢谢
2楼
王锋 发表于：2011/4/15 22:47:42试试 InitAllGrid
3楼
ahou 发表于：2011/4/18 14:39:04各种InitAllGrid、ReCalcAllGridFromula、ReCalcAllGrid，以及Grid里面的ReInitData、ReInitDataFormula、ReInitFormula都试过了，无效啊~~
共3 条记录, 每页显示 10 条, 页签:
[1]