主题：SQLtable启动加载问题

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

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

图二：查询后的数据

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


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

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

如果你的查询按钮时根据条件加载数据的，那么设计窗口的时候，SQLTable的SQL语句改为：

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

如果你的查询按钮是根据条件筛选数据的，那么SQL语句不变，在窗口AfterLoad事件加代码：

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

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

If Filter > "" Then
    Tables("日报表_Table1").datatable.loadFilter = Filter

    Tables("日报表_Table1").datatable.load
End If

Tables("日报表_Table1").Fill（"select * from {表} where " & filter ,False）

保管你有用