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

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

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

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编辑过]

y2287958

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

加好友

发短信

等级：狐神帖子：4646 积分：33880 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/11/19 21:22:00 [只看该作者]

不明白意思

有点蓝

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

加好友

发短信

等级：超级版主帖子：107521 积分：546890 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/19 21:51:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/1058.htm

Dim Filter As String

With e.Form.Controls("仓库")

If .Value IsNot Nothing Then

Filter = "仓库属性 = '" & .Value & "'"

End If

End With

With e.Form.Controls("TextBox1")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Dim txt As String = "'%" & .txt & "%'"

Filter = Filter & "(商品ID Like " & txt & " Or 商品名称 Like " & txt & " Or 拼音码 Like " & txt & ")"

End If

End With

Tables("产品").Filter = Filter

304376480

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107521 积分：546890 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/19 22:24:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("仓库")

If .Value IsNot Nothing Then

Filter = "仓库 = '" & .Value & "'"

End If

End With

With e.Form.Controls("TextBox1")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Dim txt As String = "'%" & .txt & "%'"

Filter = Filter & "(商品ID Like " & txt & " Or 商品名称 Like " & txt & " Or 拼音码 Like " & txt & ")"

End If

End With

Tables("产品").Filter = Filter

304376480

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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

主题：筛选的代码求帮助