Foxtable(狐表)用户栏目专家坐堂 → [分享]实用的刷新数据表功能(刷新光标不移动)


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

主题:[分享]实用的刷新数据表功能(刷新光标不移动)

帅哥哟,离线,有人找我吗?
jspta
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
[分享]实用的刷新数据表功能(刷新光标不移动)  发帖心情 Post By:2013/9/13 15:43:00 [只看该作者]

 

一般系统开发过程中,用户都有刷新数据表功能,但是使用系统自带的刷新功能(load),会使表格回到第一行,这样严重影响了客户使用。

虽然可以使用dataRow.load,但不能刷新整张表。

 

另有很多狐友会使用窗口表,并且使用fill进行加载,之后即使刷新表也会使用fill重新加载。其实这不需要,应该使用Load进行加载。

不过因为load的特性,如果表本身没有设置加载条件loadFilter,load后会导致把后台所有数据加载,可能会导致一些权限问题。

 

下面分享一个简单的刷新功能,代码非常简单,有需要的朋友拿去,有不足的地方请不吝斧正

(一定要先设置该表的LoadFilter,因为本人使用的是窗口表,第一次加载时已经设置完成)

 

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(False)
t.Filter = flt
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/13 15:48:00 [只看该作者]

呵呵,谢分享。


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


加好友 发短信
等级:小狐 帖子:372 积分:2548 威望:0 精华:0 注册:2013/6/6 6:20:00
  发帖心情 Post By:2013/9/13 16:09:00 [只看该作者]

新鲜出炉,正需要。试试看

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


加好友 发短信
等级:六尾狐 帖子:1198 积分:7859 威望:0 精华:0 注册:2013/5/17 14:26:00
  发帖心情 Post By:2013/9/13 23:19:00 [只看该作者]

用户已经被屏蔽

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


加好友 发短信
等级:四尾狐 帖子:832 积分:5867 威望:0 精华:6 注册:2011/5/27 11:41:00
  发帖心情 Post By:2013/9/14 8:55:00 [只看该作者]

很棒,谢谢楼主的分享!

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


加好友 发短信
等级:婴狐 帖子:31 积分:317 威望:0 精华:0 注册:2014/2/2 19:57:00
  发帖心情 Post By:2014/3/19 8:21:00 [只看该作者]

Args(0) ?这个啥东东?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/19 8:23:00 [只看该作者]

谢谢分享

 回到顶部