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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选的代码求帮助

共有1873人关注过本帖树形打印复制链接主题：筛选的代码求帮助

304376480

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

等级：小狐帖子：339 积分：3760 威望：0 精华：0 注册：2017/9/7 15:20:00

筛选的代码求帮助 发帖心情

Post By：2018/11/19 20:43:00 [显示全部帖子]

老师您好，下面是一个搜索框的代码，但还有一个仓库属性不知道该怎么加进去？让筛选在同一个仓库中筛选

Dim cangku As string = e.Form.Controls("仓库").Text

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("产品")

If txt = "" Then

tbl.Filter = ""

Else

txt = "'%" & txt & "%'"

tbl.Filter = "商品ID Like " & txt & " Or 商品名称 Like " & txt & " Or 拼音码 Like " & txt

End If

[此贴子已经被作者于2018/11/19 20:43:42编辑过]

304376480

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

等级：小狐帖子：339 积分：3760 威望：0 精华：0 注册：2017/9/7 15:20:00

Post By：2018/11/19 21:58:00 [显示全部帖子]

可以了，谢谢老师

最后一行代码改成这样就可以了

tbl.Filter = "仓库 = '" & cangku & "'and (商品ID Like " & txt & " Or 商品名称 Like " & txt & " Or 拼音码 Like " & txt & ")"

前面用and 后面用 or 这个要加到帮助文档上做个示例才好啊，因为新手，标点符号老是对不上，哈哈！

[此贴子已经被作者于2018/11/19 22:34:33编辑过]

304376480

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

等级：小狐帖子：339 积分：3760 威望：0 精华：0 注册：2017/9/7 15:20:00

Post By：2018/11/19 22:41:00 [显示全部帖子]

谢谢！老师，我把四楼重新编辑完才看到老师在五楼图片点击可在新窗口打开查看

[此贴子已经被作者于2018/11/19 22:43:36编辑过]

主题：筛选的代码求帮助