Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码无效


  共有2019人关注过本帖树形打印复制链接

主题：[求助]代码无效
帅哥哟，离线，有人找我吗？
狐作非为
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		[求助]代码无效  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/25 14:16:00 [只看该作者]

msgbox（flt）自己看看生成的条件，拿到数据库执行看结果

 回到顶部
帅哥哟，离线，有人找我吗？
狐作非为
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/27 9:12:00 [只看该作者]

看生成的最终条件是什么内容？Pname这些有没有录入内容？

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/27 9:15:00 [只看该作者]

大小写问题吧？

 

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

 

ID 输入框ID,注意生成网页时，WeUI会自动将所有ID转换为小写，例如"Table1"或转换为"table1"，今后不再重复提示，大家请自行留意。
 回到顶部
帅哥哟，离线，有人找我吗？
狐作非为
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2017/3/27 11:57:00 [只看该作者]

谢谢，是大小写的问题，但现在好像like语句无效
where I.ITMDES1_0 like '%支架%'
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/27 12:08:00 [只看该作者]

 你6楼的like语句没问题。

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐作非为
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：456 积分：7267 威望：0 精华：0 注册：2012/2/6 12:27:00 		  发帖心情 Post By：2017/3/27 12:55:00 [只看该作者]

但是没有返回数据

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/27 15:27:00 [只看该作者]

 贴出完整代码。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 4 次数据查询