以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98173)
--  作者：狐作非为
--  发布时间：2017/3/25 13:30:00
--  [求助]代码无效
    Case "filter.htm"
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","数据筛选")
            .AddInput("product","产品编号","String")
.AddInput("Pname","产品描述","String")
.AddInput("Product2","关键字","String")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
    Case "list.htm"
        Dim flt As String
        If e.PostValues.ContainsKey("product") And e.PostValues("product") > "" Then
            flt = "S.ITMREF_0 = \'" & e.PostValues("product") & "\'"
        End If
仅以上筛选有效，把产品编码放到以下筛选不了返回所有产品
        If e.PostValues.ContainsKey("Pname") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "I.ITMDES1_0 = \'" & e.PostValues("Pname") & "\'"
        End If
        If e.PostValues.ContainsKey("Product2") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "I.SEAKEY_0 = \'" & e.PostValues("Product2") & "\'"
        End If
--  作者：有点蓝
--  发布时间：2017/3/25 14:16:00
--  
msgbox（flt）自己看看生成的条件，拿到数据库执行看结果
--  作者：狐作非为
--  发布时间：2017/3/27 8:27:00
--  
       If e.PostValues.ContainsKey("product") And e.PostValues("product") > "" Then
            flt = "S.ITMREF_0 = \'" & e.PostValues("product") & "\'"
        End If

以上可以正常返回条件及值，以下均为空值，为什么？
        If e.PostValues.ContainsKey("Pname") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "I.ITMDES1_0 = \'" & e.PostValues("Pname") & "\'"
        End If
        If e.PostValues.ContainsKey("Product2") Then
            If flt > "" Then
                flt = flt & " and "
            End If
            flt = flt & "I.SEAKEY_0 = \'" & e.PostValues("Product2") & "\'"
        End If
--  作者：有点蓝
--  发布时间：2017/3/27 9:12:00
--  
看生成的最终条件是什么内容？Pname这些有没有录入内容？
--  作者：有点色
--  发布时间：2017/3/27 9:15:00
--  

大小写问题吧？

 

If e.PostValues.ContainsKey("Pname") Then

 

ID 输入框ID,注意生成网页时，WeUI会自动将所有ID转换为小写，例如"Table1"或转换为"table1"，今后不再重复提示，大家请自行留意。
--  作者：狐作非为
--  发布时间：2017/3/27 11:57:00
--  
谢谢，是大小写的问题，但现在好像like语句无效
where I.ITMDES1_0 like \'%支架%\'
--  作者：有点色
--  发布时间：2017/3/27 12:08:00
--  

 你6楼的like语句没问题。

 
--  作者：狐作非为
--  发布时间：2017/3/27 12:55:00
--  
但是没有返回数据
--  作者：有点色
--  发布时间：2017/3/27 15:27:00
--  
 贴出完整代码。