主题：同步表以后筛选失效的问题

同步Syscmd.Table.Load()，以后，表的筛选条件就失效了，显示的是所有数据。

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

 

Dim f As String = CurrentTable.Filter

CurrentTable.DataTable.Load

CurrentTable.filter = f

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

非常感谢老师。