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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 交叉检索搜索

共有2115人关注过本帖树形打印复制链接主题：交叉检索搜索

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

交叉检索搜索 发帖心情

Post By：2021/9/29 13:44:00 [只看该作者]

老师我想问一下有没有那一两个条件的交集或者是并集来查询搜索的

有点蓝

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

加好友

发短信

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

Post By：2021/9/29 13:47:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0102.htm，理解一下or、and的区别

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/29 14:06:00 [只看该作者]

交集跟并集是用and跟or是吧

有点蓝

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

加好友

发短信

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

Post By：2021/9/29 14:11:00 [只看该作者]

是的

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/29 14:59:00 [只看该作者]

我这个如果要交集的话是不是要Dim Filter As String

With e.Form.Controls("开始2")

If .Value IsNot Nothing Then

Filter = Filter & "记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("开始")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#"

End If

End With

If Filter > "" Then

Tables("主控窗口_Table2").Filter = Filter

End If

此主题相关图片如下：1632898454(1).jpg

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/29 15:04:00 [只看该作者]

怎么两个结果合在一起

[此贴子已经被作者于2021/9/29 15:05:39编辑过]

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/29 15:08:00 [只看该作者]

开始一跟结束一的结果跟开始二跟结束二的筛选合在一起怎么弄

有点蓝

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

加好友

发短信

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

Post By：2021/9/29 15:18:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("开始")

If .Value IsNot Nothing Then

Filter = "(记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#)"

Else

Filter = Filter & ")"

End If

End With

With e.Form.Controls("开始2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "(记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#)"

Else

Filter = Filter & ")"

End If

End With

If Filter > "" Then

Tables("主控窗口_Table2").Filter = Filter

End If

11112

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

加好友

发短信

等级：幼狐帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00

Post By：2021/9/29 15:34:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("开始")

If .Value IsNot Nothing Then

Filter = "(记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#)"

Else

Filter = Filter & ")"

End If

End With

With e.Form.Controls("开始2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " or "

End If

Filter = Filter & "(记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("产品类别")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "产品类别 = '" & .Value & "'"

End If

End With

With e.Form.Controls("产品类别2")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " or "

End If

Filter = Filter & "产品类别 = '" & .Value & "'"

End If

End With

With e.Form.Controls("结束2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#)"

Else

Filter = Filter & ")"

End If

End With

If Filter > "" Then

Tables("主控窗口_Table2").Filter = Filter

End If 老师是不是一个是and 一个是or 他说我右括号太多了

有点蓝

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

加好友

发短信

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

Post By：2021/9/29 15:47:00 [只看该作者]

建议分开2个条件，然后再合并

Dim Filter As String

With e.Form.Controls("开始")

If .Value IsNot Nothing Then

Filter = "记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " and "

End If

Filter = Filter & "记录时间 <= #" & .Value & "#"

End If

End With

Dim Filter2 As String

With e.Form.Controls("开始2")

If .Value IsNot Nothing Then

Filter2 = Filter2 & "记录时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束2")

If .Value IsNot Nothing Then

If Filter2 >"" Then

Filter2 = Filter2 & " and "

End If

Filter2 = Filter2 & "记录时间 <= #" & .Value & "#"

End If

End With

If Filter > "" AndAlso Filter2 > "" Then

Tables("主控窗口_Table2").Filter = "(" & Filter & ") or (" & Filter2 & ")"

else

If Filter > "" Then

Tables("主控窗口_Table2").Filter = Filter

elseIf Filter 2> "" Then

Tables("主控窗口_Table2").Filter = Filter2

End If

和Filter有关的其它交集的条件放到Filter里，和Filter2有关的其它交集的条件放到Filter2里

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

总数 14 1 2 下一页

主题：交叉检索搜索