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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于自制筛选的问题

共有3622人关注过本帖树形打印复制链接主题：[求助]关于自制筛选的问题

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

[求助]关于自制筛选的问题 发帖心情

Post By：2018/3/27 20:13:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "日期 = '" & .Value & "'"
End If

If Filter > "" Then
Tables("表A").Filter = Filter
End If

如上，这是一个筛选按钮的代码，筛选列“日期”的列数据类型为日期时间，格式为2014-02-05等，筛选条件为同样的年月日，但是我希望能将筛选条件变成满足“日期”列中的前4字符（即年份），请问是否有这样的代码能做到如果"cmbProduct"满足前4字符，就可以筛选出来

有点蓝

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

加好友

发短信

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

Post By：2018/3/27 20:20:00 [只看该作者]

参考：

http://www.foxtable.com/webhelp/scr/2720.htm

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

Post By：2018/3/27 20:25:00 [只看该作者]

我的意思是，我的筛选框仅有2013，2014，2015，2016这几个数据，但是在选择了譬如2014后，点击我设定的按钮，能够将一个完整的日期列（2014-02-17）中的所有开头为2014的筛选出来。

有点蓝

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

加好友

发短信

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

Post By：2018/3/27 20:33:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("cmbProduct")

If .Value IsNot Nothing Then

Dim d As Date = new Date(val(.Value),1,1)

Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"

End If

End With

If Filter > "" Then

Tables("表A").Filter = Filter

End If

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

Post By：2018/3/27 20:34:00 [只看该作者]

谢谢

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

Post By：2018/3/27 20:58:00 [只看该作者]

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "编号 = '" & .Value & "'"
    End If
End With

麻烦再问一下，我将你发给我的指令输入后，的确能够筛选出日期中的年，但是当我在筛选指令中添加了上面这个指令后，筛选按钮只能筛选你给我的日期筛选，并不能对编号进行筛选，是否能够将两个筛选条件同时满足（筛选日期中的年同时筛选编号），谢谢

wyz20130512

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

加好友

发短信

等级：六尾狐帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2018/3/27 21:14:00 [只看该作者]

用逻辑运算符继续连接即可！

Filter = "日期 >= #" & d & "# And 日期 < #" & d.AddYears(1) & "# And 编号 = '" & .Value & "'"

[此贴子已经被作者于2018/3/27 21:16:51编辑过]

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

Post By：2018/3/27 21:29:00 [只看该作者]

但是编号所在的筛选输入文本框和日期筛选输入问文本框不是一个

有点蓝

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

加好友

发短信

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

Post By：2018/3/27 21:33:00 [只看该作者]

认真看一下帮助：http://www.foxtable.com/webhelp/scr/1058.htm

With e.Form.Controls("cmbCustomer")'第一个控件的条件
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("cmbEmployee")'第二个控件的条件
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "雇员 = '" & .Value & "'"
    End If
End With

xwhong123

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

加好友

发短信

等级：婴狐帖子：13 积分：179 威望：0 精华：0 注册：2018/3/6 20:34:00

Post By：2018/3/27 22:32:00 [只看该作者]

Dim Filter As String

With e.Form.Controls("cmbProduct2")
If .Value IsNot Nothing Then
Dim d As Date = new Date(val(.Value),1,1)
Filter = "日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "#"

End If
End With

With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "报告编号 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
Tables("表A").Filter = Filter
End If

现在两个指令均已经输入，但是在点击按钮时，只能读取其中一个条件，不能筛选到同时满足条件的

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

总数 11 1 2 下一页

主题：[求助]关于自制筛选的问题