以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  后台查找资料  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103185)
--  作者：邝蛋蛋
--  发布时间：2017/7/2 15:19:00
--  后台查找资料
产品资料表设计了一个主窗口，如图，然后那个查询按钮设置代码如下：

Dim Filter As String
With e.Form.Controls("查找内容")
    If .Value IsNot Nothing Then
        Filter = "产品名称 like \'%" & .Value & "%\'"
    End If
End With
If Filter > "" Then
    Tables("产品资料").Filter = Filter
End If

以上代码只能查询table上已加载的数据，现在我把产品资料表设置了打开文件后只加载23行，如果我要后台查询没有加载到的产品资料，该代码应如何修改？希望大家指点指点、谢谢
--  作者：邝蛋蛋
--  发布时间：2017/7/2 15:22:00
--  
图片
图片点击可在新窗口打开查看此主题相关图片如下：1234.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/7/2 15:48:00
--  
Dim Filter As String
With e.Form.Controls("查找内容")
    If .Value IsNot Nothing Then
        Filter = "产品名称 like \'%" & .Value & "%\'"
    End If
End With
If Filter > "" Then
    DataTables("产品资料").LoadFilter = Filter
    DataTables("产品资料").Load
End If
--  作者：邝蛋蛋
--  发布时间：2017/7/2 16:31:00
--  
耶，可以了，谢谢你