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

以文本方式查看主题

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

--  作者：seal51
--  发布时间：2015/7/9 16:01:00
--  [求助]后台筛选

从后台筛选，下面代码那里错了，请老师指教！谢谢！

Dim filter As String
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
For Each st As String In sts
    Dim val As String = e.Form.Controls(st).value
    If val > "" Then
        val = val.Replace("*","[*]")
        If filter = "有图=false " Then
            filter = st & " like \'*" & val & "*\'"
        Else
            filter = filter & " and " & st & " like \'*" & val & "*\'"
        End If
    End If
Next
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()

--  作者：大红袍
--  发布时间：2015/7/9 16:06:00
--

[此贴子已经被作者于2015/7/9 16:07:34编辑过]

--  作者：大红袍
--  发布时间：2015/7/9 16:09:00
--
Dim filter As String = "1=1"
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
Dim val As String = e.Form.Controls(st).value
If val > "" Then
    For Each st As String In sts
        filter = filter & " and " & st & " like \'%" & val & "%\'"
    Next
End If
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()

--  作者：seal51
--  发布时间：2015/7/9 16:30:00
--
关键字 \'and\' 附近有语法错误。

--  作者：大红袍
--  发布时间：2015/7/9 16:36:00
--
看3楼，不可能有问题。

--  作者：大红袍
--  发布时间：2015/7/9 16:37:00
--
msgbox(filter)

--  作者：seal51
--  发布时间：2015/7/9 16:40:00
--

撤销筛选的代码，把条件“有图 = false " 加到那里呢？

Dim filter As String
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
For Each st As String In sts
    e.Form.Controls(st).value = Nothing
Next
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()

--  作者：大红袍
--  发布时间：2015/7/9 16:43:00
--

Dim filter As String
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
For Each st As String In sts
    e.Form.Controls(st).value = Nothing
Next
DataTables("产品表").LoadFilter = "有图 = false"
DataTables("产品表").Load()

--  作者：seal51
--  发布时间：2015/7/9 16:47:00
--
谢谢老师！

--  作者：hawkgo
--  发布时间：2015/8/4 9:15:00
--

Dim st As String
st =e.form.Controls("TextBox1").Name
Dim filter As String = "1=1"
Dim sts() As String = {"合同编号","客户姓名","发票号","销售工程师"}
Dim val As String = e.Form.Controls(st).value
If val > "" Then
For Each st As String In sts
filter = filter & " and " & st & " like \'%" & val & "%\'"
Next
End If
DataTables("合同管理").LoadFilter = Filter
DataTables("合同管理").Load()

说划线部分有错， st在封闭块中隐藏变量？

求助。