标题：怎么设置多表过滤查询功能

1楼

竑凯发表于：2025/1/2 21:44:00

此主题相关图片如下：c79282b86e169403a5e2850612e519bb.png

怎么才能实现这样多表按不同列去查询呢？论坛有没有案例或者什么学习资料学习学习？

2楼

有点蓝 发表于：2025/1/2 21:50:00

不同表设置不同条件，比如

dim a as string = "输入的关键字"

dim A表条件 as string = "第一列='" & a & "'"

tables("A表").filter = A表条件

dim B表条件 as string = "第3列='" & a & "'"

tables("B表").filter = B表条件

3楼

竑凯发表于：2025/1/4 16:20:00

此主题相关图片如下：求问.png

小白不是很理解能否麻烦写个案例看看我想实现如下案例：二个表根据输入的内容精准匹配过滤另外二个表根据输入的数据模糊匹配！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.rar

4楼

有点蓝 发表于：2025/1/4 16:41:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

5楼

竑凯发表于：2025/1/4 16:55:00

感谢指点！代码意思定义个变量变量名是 s 然后去进行判断吗？能否麻烦注释下代码意思?

此主题相关图片如下：错误判断疑问.png

另外判断也有点小问题！

6楼

有点蓝 发表于：2025/1/4 17:10:00

很基础的知识。如果代码完全看不懂，先花几天时间重头看一遍编程基础吧。

左上角的表没有效果，因为代码里没有对这个表进行处理，自己参考其它表的用法处理

如果要对单个字符进行模糊查询，改一下用法即可

Dim s As String = e.Form.Controls("输入框").Text '获取输入框的内容放入变量

If s > "" Then '输入框有输入内容则设置条件

Tables("HdDbProductEntity").filter = "Info='" & s & "'" '合并查询条件：http://www.foxtable.com/webhelp/topics/1284.htm

Dim filter As String = "1=2 " '定义模糊查询的条件变量

For Each c As Char In s '遍历每个字符，合成条件

filter = filter & " or Series like '%" & c & "%'"

Tables("HdDbProfileEntity").filter = filter

Tables("HdDbCombinationEntity").filter = filter

Else '否则去掉条件

Tables("HdDbProductEntity").filter = ""

Tables("HdDbProfileEntity").filter = ""

Tables("HdDbCombinationEntity").filter = ""

End If

7楼

竑凯发表于：2025/1/4 19:58:00

搞定了多谢指点我在学学看看

共7 条记录, 每页显示 10 条, 页签: [1]