数据窗口检索前记录滚动条位置, 检索后恢复原位置

 

实例变量:

String is_old_VPosition

String is_old_HPosition

 

数据窗口 RetrieveStart 事件:

// 保存原始位置
is_old_VPosition = THIS.Describe("DataWindow.VerticalScrollPosition")
is_old_HPosition = THIS.Describe("DataWindow.HorizontalScrollPosition")

THIS.SetRedraw(FALSE)

数据窗口 RetrieveEnd 事件:
THIS.Modify("DataWindow.VerticalScrollPosition = " + is_old_VPosition)
THIS.Modify("DataWindow.HorizontalScrollPosition = " + is_old_Hposition)

THIS.SetRedraw(TRUE)