专家坐堂-窗口查询代码问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=93609)

--  作者：feixianzhi
--  发布时间：2016/12/2 10:42:00
--  窗口查询代码问题
我做了一个窗口，用于查询一个外部数据表中某列的内容。代码如下：

Dim txt As String = e.Form.Controls("spmc").Text
Dim tbl As Table = Tables("综合查询_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "药品名称 Like " & txt
End If

因为是外部数据表，现在只能查询已经加载的内容。
我想实现：不加载的内容也能通过窗口查询到。
代码怎么改，请各位老师帮忙。

--  作者：有点蓝
--  发布时间：2016/12/2 11:09:00
--

Dim txt As String = e.Form.Controls("spmc").Text
Dim tbl As Table = Tables("综合查询_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.DataTable.LoadFilter = "药品名称 Like " & txt
tbl.DataTable.load
End If