我打开项目两个表初始加载20天以内的数据，现在实现按一个按钮，把20天以前的数据也加载进来

此主题相关图片如下：qq截图20160412111120.png

但是这样有几个问题，一个是按了按钮之后，速度很慢才能加载完，比我初始全部加载数据慢太多了，还有就是窗口里面的table筛选好像没用了，全是从头到尾的所有数据，请问有什么方法可以更好地实现吗

试试

SystemReady = False

\'加载代码

SystemReady = True

重新加载后，筛选都是清除了的。如果要筛选，那么你就保存筛选条件，加载后重新设置筛选。

我发现了，是drwacell的问题造成速度慢，但是我这里面的代码很简单：

If e.Col.IsBoolean AndAlso e.Col.Name ="单据回收" Then
    If e.Row("单据回收") = True Then
        e.Style = "已收单"
    Else e.Style = "未收单"
    End If
End If

If e.Row.Locked = False Then
    e.Style = "解锁行"
End If

请问怎么改进？

还有你说的保存筛选条件怎么实现啊？

非常感谢

1、看2楼

2、

Dim temp As String = Tables().Filter

\'加载数据

Tables().Filter = temp