| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [分享]实用的刷新数据表功能（刷新光标不移动） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40265) |
| -- 作者：jspta -- 发布时间：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 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/9/13 15:48:00 -- 呵呵，谢分享。 |
| -- 作者：aalons -- 发布时间：2013/9/13 16:09:00 -- 新鲜出炉，正需要。试试看 |
| -- 作者：小猪鑫鑫 -- 发布时间：2013/9/14 8:55:00 -- 很棒,谢谢楼主的分享! |
| -- 作者：xtgi -- 发布时间：2014/3/19 8:21:00 -- Args(0) ？这个啥东东？ |
| -- 作者：Bin -- 发布时间：2014/3/19 8:23:00 -- 谢谢分享 |