以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同步表以后筛选失效的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76392)
--  作者：flashv
--  发布时间：2015/10/28 11:08:00
--  同步表以后筛选失效的问题
同步Syscmd.Table.Load()，以后，表的筛选条件就失效了，显示的是所有数据。
有没有办法简单实现保留筛选条件的同步？比如某人，某职务，某年……这些条件保留的同时同步数据呢？
--  作者：大红袍
--  发布时间：2015/10/28 11:10:00
--  

同步之前，保存筛选条件。

 

Dim f As String = CurrentTable.Filter

CurrentTable.DataTable.Load

CurrentTable.filter = f
--  作者：大红袍
--  发布时间：2015/10/28 11:12:00
--  

Dim t As Table = CurrentTable
Dim f As String = t.Filter
Dim Int As Integer = t.Position    \'获取行位置
Dim p As point = t.ScrollPosition  \'获取行在屏幕中位置
t.StopRedraw
t.DataTable.Load(True)
t.filter = f
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw
--  作者：flashv
--  发布时间：2015/10/28 11:52:00
--  
非常感谢老师。