以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  每次刷新后,记录就往下跳一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75567)

--  作者:qinlao666
--  发布时间:2015/10/10 14:09:00
--  每次刷新后,记录就往下跳一行

在计划管理里面每次刷新后,记录就往下跳一行,请问老师如何能不让它跳转啊

内部函数

Dim t As Table = Args(0)
Dim flt As String = t.Filter       \'获取过滤条件
Dim Int As Integer = t.Position    \'获取行位置
Dim p As point = t.ScrollPosition  \'获取行在屏幕中位置

    t.StopRedraw
    t.DataTable.Load(True)
    t.Filter = flt
    t.Position = Int
    t.ScrollPosition = p
    t.ResumeRedraw


--  作者:Hyphen
--  发布时间:2015/10/10 16:25:00
--  
测试没有问题,是否有其它地方做了控制
--  作者:qinlao666
--  发布时间:2015/10/12 13:47:00
--  
可是我把这个计划暂停掉后就不跳了,
--  作者:大红袍
--  发布时间:2015/10/12 14:12:00
--  
测试了一下你的代码不会导致下跳一行,或者你做个小例子上来看看。