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


  共有2848人关注过本帖树形打印复制链接

主题:自动刷新问题

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/16 11:19:00 [显示全部帖子]

放在定时器里面。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/16 11:58:00 [显示全部帖子]

例子发上来。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/16 14:20:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


 回到顶部