专家坐堂-任意筛选datatableFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  任意筛选datatable  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143301)

--  作者：15666282205
--  发布时间：2019/11/20 16:47:00
--  任意筛选datatable
老师，下面这段代码是加载表以后对table进行任意搜索，而且还得把表设为副本。我想实现不加载表，直接搜索datatable,请您帮忙改一改。用的sql外部数据库。
\'---------------------------任意搜索-------------------------
Dim txt As String = e.Form.Controls("TextBox5").Text
Dim tbl As Table = Tables("主页_Table5")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "单位名称 Like " & txt & " Or 经理姓名 Like " & txt & " Or 会计姓名 Like " & txt & " Or 业务员姓名 Like " & txt
End If

--  作者：有点蓝
--  发布时间：2019/11/20 16:50:00
--

Dim txt As String = e.Form.Controls("TextBox5").Text
Dim tbl As dataTable = Tables("主页_Table5").datatable
If txt = "" Then
tbl.loadFilter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.loadFilter = "单位名称 Like " & txt & " Or 经理姓名 Like " & txt & " Or 会计姓名 Like " & txt & " Or 业务员姓名 Like " & txt
End If
tbl.load

--  作者：15666282205
--  发布时间：2019/11/21 7:57:00
--
谢谢老师，效果很好。