[筛选][求助]如果结合下拉列表条件值搜索？[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [筛选][求助]如果结合下拉列表条件值搜索？[已解决]

共有10601人关注过本帖树形打印复制链接主题：[筛选][求助]如果结合下拉列表条件值搜索？[已解决]

KingGen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

[筛选][求助]如果结合下拉列表条件值搜索？[已解决] 发帖心情

Post By：2013/10/30 20:33:00 [只看该作者]

各位老师好，小弟问题个问题：

图片点击可在新窗口打开查看此主题相关图片如下：下拉列表的搜索问题.jpg

请问如果写代码，能使得按下拉列表中的选中条件值之后，在文本框输入相应的条件进行搜索到所有符合条件的行数？

谢谢您们的指教！

[此贴子已经被作者于2013-10-30 22:25:44编辑过]

KingGen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

Post By：2013/10/30 20:46:00 [只看该作者]

咳咳咳，可能问题有点小白了，但是真的不明白嘛。。。。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/30 20:49:00 [只看该作者]

这个简单吧？

直接e.form.controls("Table1").table.rows.count

KingGen

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

Post By：2013/10/30 21:07:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("tj")
    If .Value IsNot Nothing Then
        Filter = "商品编码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("tj")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "条码 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("tj")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "商品名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("spmc")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
    End If
End With
If Filter > "" Then
    Tables("商品资料").Filter = Filter
End If

为什么这样写不对了呢？？？按条件值输入文本后点搜索数据直接没了。。。

本人超级小白，求详细代码。。。

[此贴子已经被作者于2013-10-30 21:07:52编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/30 21:14:00 [只看该作者]

代码没有错。具体问题，请上传一个例子。或者参考例子

窗口筛选.table

http://www.foxtable.com/help/topics/1058.htm

KingGen

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

Post By：2013/10/30 21:47:00 [只看该作者]

就是点击要查询的条件名称然后输入条件值，点搜索可以显示相应的搜索关键字行。。。。这样明白不？

图片点击可在新窗口打开查看此主题相关图片如下：下拉列表的搜索问题.gif

程兴刚

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/10/30 21:50:00 [只看该作者]

您还不如搞个目录树来得方便！

KingGen

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

Post By：2013/10/30 21:51:00 [只看该作者]

嘛，现在就是想要实现这样的效果的啊，程大有没好代码？

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/30 21:58:00 [只看该作者]

第一，你的搜索框和包含框，不能绑定表的列

第二，修改你的筛选代码，如下

Dim filter As String = ""

Select Case e.Form.Controls("tj").text

Case "条形码"

filter += "条码 like '*" & e.Form.Controls("spmc").text & "*'"

Case "商品名称"

filter += "商品名称 like '*" & e.Form.Controls("spmc").text & "*'"

End Select

e.Form.controls("Table1").Table.filter = filter

KingGen

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：989 威望：0 精华：0 注册：2013/10/30 20:29:00

Post By：2013/10/30 22:11:00 [只看该作者]

以下是引用有点甜在2013-10-30 21:58:00的发言：
第一，你的搜索框和包含框，不能绑定表的列

第二，修改你的筛选代码，如下

Dim filter As String = ""

Select Case e.Form.Controls("tj").text

Case "条形码"

filter += "条码 like '*" & e.Form.Controls("spmc").text & "*'"

Case "商品名称"

filter += "商品名称 like '*" & e.Form.Controls("spmc").text & "*'"

End Select

e.Form.controls("Table1").Table.filter = filter

按您的代码我修改成：

Dim filter As String = ""
Select Case e.Form.Controls("tj").text
    Case "条形码"
        filter += "条码 like '*" & e.Form.Controls("spmc").text & "*'"
    Case "商品名称"
        filter += "商品名称 like '*" & e.Form.Controls("spmc").text & "*'"
End Select
e.Form.controls("商品资料").Table.filter = filter

这样有以下出错提示：

此主题相关图片如下：gaollg0.gif

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：[筛选][求助]如果结合下拉列表条件值搜索？[已解决]