以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]后台筛选数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180039)

--  作者:moseser
--  发布时间:2022/9/24 14:45:00
--  [讨论]后台筛选数据
通过文本框输入内容进行后台数据的筛选,最后结果体现在表内
以这种形式:   混凝土 C30 -圈梁 ,表示筛选含有混凝土 c30,不含圈梁的行,
现在问题是,普通表可以实现查询了, 我想对数据表进行所有数据查询,请问如何实现? 是不是要用  ,datatables("控制价").sqlload ? sql 筛选的语句如何写?

Dim sp() As String = e.Sender.Text.split(" ")
Dim filter As String = "1=1"
For Each s As String In sp
    If s.StartsWith("-") Then
        Dim n As Integer = s.Length
        If n > 1 Then 
            s = right(s, n - 1) 
            filter = filter & " and (章节 not like \'%" & s & "%\' and 类别 not like \'%" & s & "%\' and 项目特征 not like \'%" & s & "%\' and 工作内容 not like \'%" & s & "%\' and 计量单位 not like \'%" & s & "%\')"
        End if
    Else
        filter = filter & " and (章节 like \'%" & s & "%\' or 类别 like \'%" & s & "%\' or 项目特征 like \'%" & s & "%\' or 工作内容 like \'%" & s & "%\' or 计量单位 like \'%" & s & "%\')" 
    End If 
Next
tables(”控制价“).filter = filter



--  作者:有点蓝
--  发布时间:2022/9/24 15:31:00
--  
tables(”控制价“).filter = filter
改为
datatables(”控制价“).loadfilter = filter
datatables(”控制价“).load