以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  任意筛选datatable  (http://www.foxtable.com/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
--  
谢谢老师，效果很好。