主题：SQLtable启动加载问题

我的表通过SQLTable查询数据库，如何在打开窗口时不加载表内容，而是在输入查询条件后才有数据。

图一：打开窗口表中就加载了数据

图二：查询后的数据

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


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

我就是想在打开图一时表是空的

Select * From {表名} Where [_Identify] Is Null

打开窗口时是不加载数据了，但点击查询按钮，查询不到数据了？

用

Tables("窗口_Table1").Filter = “[_Identify] Is Null”

打开窗口还是跟着加载数据

查询按钮代码：

Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("日报表_Table1").Filter = Filter
End If