数据和逻辑查询问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据和逻辑查询问题

共有5561人关注过本帖树形打印复制链接主题：数据和逻辑查询问题

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

数据和逻辑查询问题 发帖心情

Post By：2022/4/20 22:29:00 [显示全部帖子]

如何实现如图的查询？

需求是：按分类：选择（产品，客户，雇员），分类内容：（产品，客户，雇员等的数据），按数量（单价，折扣，数量），

条件（大于，小于，不等于，等于），查询内容是（单价，折扣，数量的数据），已付款的逻辑的条件进行查询。

此主题相关图片如下：模糊查询.jpg

下面是实现，字符的字段，如何实现“数字的字段的按条件，及逻辑的字段”？

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

Dim tbl As Table = Tables("订单")

If txt = "" Then

tbl.Filter = ""

Else

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

tbl.Filter = " 产品 Like " & txt & " Or 客户 Like " & txt & " Or 雇员 Like " & txt

'tbl.Filter = " 产品 Like " & txt & " Or 客户 Like " & txt & " Or 数量 Like " & txt，这个会报错

End If

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/21 9:32:00 [显示全部帖子]

老师，还有一个功能如何实现，如选择“数量”，条件（大于，小于，不等于，等于），比如：按数量查询，条件从下拉框选中”大于“700的条件，进行查询？

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/21 11:37:00 [显示全部帖子]

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

Dim tbl As Table = Tables("订单")

If txt = "" Then

tbl.Filter = ""

Else

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

tbl.Filter = " 产品 Like " & txt & " Or 客户 Like " & txt & " Or convert(数量,'System.String') Like " & e.Form.Controls("ComboBox2").Text & e.Form.Controls("TextBox1").Text

End If

执行上面，报错，如下图

此主题相关图片如下：查询2.jpg

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/21 15:09:00 [显示全部帖子]

老师，还是问题，请指导，上实例，谢谢！

[此贴子已经被作者于2022/4/21 16:14:14编辑过]

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/21 21:24:00 [显示全部帖子]

tbl.Filter = " 产品 Like " & txt & " Or 客户 Like " & txt & " Or 数量 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text

问题1：这个在正表可执行，如何改为副表也可执行？

把上面代码为下面，出现问题：

问题2：改下面，没报错，不执行？

tbl.Filter = " 数量 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text

问题3：改下面，报错，提示，应为结束语句？

tbl.Filter = " 数量 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text" & txt & " Or 金额 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text " & txt & " Or 折扣 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/22 11:12:00 [显示全部帖子]

msgbox(" 数量 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text Or 金额 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text Or 折扣 " & e.Form.Controls("ComboBox6").Text & e.Form.Controls("TextBox3").Text)

报错如图

此主题相关图片如下：查询3.jpg

lgz518

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

加好友

发短信

等级：六尾狐帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2022/4/22 12:31:00 [显示全部帖子]

tbl.Filter = " 数量 " & e.Form.Controls("ComboBox2").Text & e.Form.Controls("TextBox1").Text & " Or 金额 "& e.Form.Controls("ComboBox2").Text & e.Form.Controls("TextBox1").Text & " Or 折扣 " & e.Form.Controls("ComboBox2").Text & e.Form.Controls("TextBox1").Text

用这个方法，测试后，发现=，<>，>，<，>=，<=，操作时，有时会卡住，有时不执行，如何解决？谢谢