自动刷新问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动刷新问题

共有2728人关注过本帖树形打印复制链接主题：自动刷新问题

qinlao666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

自动刷新问题 发帖心情

Post By：2015/10/16 11:11:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151016104115.jpg

如上窗口，合同主表每隔2分钟自动刷新一次，合同明细的记录就跳到当前窗口的第一条，

如何让它不要跳

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 11:13:00 [只看该作者]

Dim t As Table = Tables("URL表")

Dim Int As Integer = t.Position '获取行位置
Dim p As point = t.ScrollPosition '获取行在屏幕中位置
t.StopRedraw
t.DataTable.Load(True)
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw

qinlao666

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2015/10/16 11:18:00 [只看该作者]

老师这段代码要写在哪里？另“URL表”的内容如何改写

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 11:19:00 [只看该作者]

放在定时器里面。

qinlao666

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2015/10/16 11:38:00 [只看该作者]

没有效果，还是跳。合同主表是自动刷新的，但合同明细是不自动刷新的

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/16 11:41:00 [只看该作者]

Dim t1 As Table = Tables("主表")

Dim t2 As Table = Tables("明细表")

Dim Int1 As Integer = t1.Position '获取行位置
Dim p1 As point = t1.ScrollPosition '获取行在屏幕中位置
t1.StopRedraw

Dim Int2 As Integer = t2.Position '获取行位置
Dim p2 As point = t2.ScrollPosition '获取行在屏幕中位置
t2.StopRedraw
t1.DataTable.Load(True)
t1.Position = Int1
t1.ScrollPosition = p2
t1.ResumeRedraw

t2.Position = Int2
t2.ScrollPosition = p2
t2.ResumeRedraw