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

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

共有1690人关注过本帖树形打印复制链接主题：筛选求助

zhangxl1964

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

加好友

发短信

等级：二尾狐帖子：553 积分：5327 威望：0 精华：0 注册：2011/6/7 13:33:00

筛选求助

Post By：2015/11/21 14:43:00 [只看该作者]

老师：你好！

我需要对人员名册进行筛选统计。

1、登记日期小于某个登记日期

2、离职日期大于某个离职日期

3、离职日期或者离职日期为空

下面代码中的离职日期为空如何修改？请帮助。

Dim Filter As String

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("离职日期")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "离职日期 = ' Is null '" '离职日期为空

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

If Filter > "" Then

Tables("在职查询_Table1").Filter = Filter

End If

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/21 14:52:00 [只看该作者]

Filter = Filter & "离职日期 Is null " '离职日期为空

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/21 14:56:00 [只看该作者]

Dim Filter As String

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("离职日期")
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    If .Value Is Nothing Then
        Filter = Filter & "离职日期 Is null " '离职日期为空
    Else
        Filter = Filter & "离职日期 >= '" & .Value & "'"
    End If
End With

If Filter > "" Then
Tables("在职查询_Table1").Filter = Filter
End If

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

主题：筛选求助