VFP 愛用者社區

clmao · 註冊時間: 2006-04-15 文章: 57 第 16 樓

謝謝大大指導!
讓人受益無窮!

VFP001 · 發表於: 星期四八月 17, 2006 10:03 pm 文章主題:

小弟也曾为此事绞尽脑汁，这是最后的解决方案，供参考。
小弟信箱是 jwrj-cg@126.com 欢迎联系
lnGridHeight = thisForm.dispGrid.height && 取出这个grid高
lnGridHeight = lnGridHeight - thisForm.dispGrid.headerHeight
* 减表头高
lnSkipRecNum = lnGridHeight / thisForm.dispGrid.height - 2
* 减下面的scrollBar，再减一行，否则最后一行就在显示记录的下面了
select (gcCurDbf)
go bottom
for i = 1 to lnSkipRecNum
if not bof() && 防止当前记录数 < lnSkipRecNum
skip -1
endif
endfor
thisForm.dispGrid.refresh && 先刷新后再移到最后一行
go bottom

clmao · 註冊時間: 2006-04-15 文章: 57 第 18 樓

感謝大大指導!
謝謝!