Retrieve后不回卷的数据窗

我们经常面对一大堆数据,其具体体现就是数据窗很长,需要拉动

垂直滚动条才能看到后面的数据,当在包含长数据窗的窗口的Timer事

件中写下Retrieve( )语句后,令人气恼的事情就会发生:Timer事件一
  
执行,数据窗就翻回第一页;如果Timer事件执行的时间间歇很短,那我
  
们就永远没有足够的时间来察看后面的数据了。下面我们着手解决这
  
个问题。
  
    每个数据窗都拥有两个与Retrieve有关的事件:Retrievestart和
  
Retrieveend,它们分别允许我们在Retrieve的前后干一些事,这正是
  
我们所需要的。实际上,就这两个事件,我们已经能够提出两个解决方
  
案了。其一,在Retrievestart事件中,保存当前数据窗中可见的数据
  
行;然后Retrieve;接着在Retrieveend事件中,恢复先前保存的数据行
  
。其二,在Retrievest art事件中,保存当前垂直滚动块的位置,Retri
  
eve后再恢复其位置。后者使用了动态数据窗函数,实现起来更简洁一
  
些,下面详细探讨。
  
    假设已设计好了一个在窗口w-datamon中的数据窗dw-datamon,现
  
在可以先定义一个保存垂直滚动块位置的类型为string的Globle变量
  
old-vspos,然后在该数据窗的Retrievestart 事件下输入以下语句以
  
保存其位置:
  
    old-vspos = this.dwDescribe("DataWindow.VerticalScrollPo
  
sition")
  
    dw-datamon.SetRedraw(false)
  
    在相应的Retrieveend事件下输入恢复垂直卷滚块位置的语句:
  
    this.dwModify("DataWindow.VerticalScrollPosition = " + o
  
ld-vspos)
  
    dw-datamon.SetRedraw(true)
  
    这样,数据窗上的工作已做完。下面是相应窗口上的工作。
  
    该窗口的Open事件下:
  
    dw-datamon.Settrans(sqlca)
    dw-datamon.Retrieve( )

    timer(6)

    该窗口的Timer事件下:

    Setfocus(w-datamon)

    Retrieve(dw-datamon)

    至此,Retrieve后不会回卷的数据窗dw-datamon已经可以工作了

。值得注意的是,数据窗的排序分类等操作应在Retrieve前就在数据

库表中完成,否则Retrievestart事件保存的卷滚块位置很可能并不是

我们所期待的,换句话说,Retrievestart事件应发生在所有数据窗操

作之后;另外,在每次Retrieve后,应将处于该数据窗上的Focus移开,

以免具有焦点的数据窗的第一行第一列总要显示,故在窗口w-datamon

的Timer事件中设置了Setfocus(w-datamon)这条语句