Foxtable(狐表)用户栏目专家坐堂 → [求助]离职员工工龄的筛选条件问题


  共有2303人关注过本帖树形打印复制链接

主题:[求助]离职员工工龄的筛选条件问题

帅哥哟,离线,有人找我吗?
km007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:5156 威望:0 精华:0 注册:2016/1/28 2:59:00
[求助]离职员工工龄的筛选条件问题  发帖心情 Post By:2020/2/4 20:30:00 [只看该作者]

请问离职员工 工龄的筛选条件该怎么写呢?

工龄(年) 指:筛选范围是 在职 多少年 内的员工信息。
工龄(月) 指:筛选范围是 在职 多少个月 内的员工信息。
工龄(日) 指:筛选范围是 在职 多少天 内的员工信息。

1、我要筛选 在职工龄 在 1-3 年 的员工信息,这个 工龄(年) 筛选条件应该怎么写呢?
2、我要筛选 在职工龄 在 5-13 个月 的员工信息,这个 工龄(月) 筛选条件应该怎么写呢?
3、我要筛选 在职工龄 在 100-300 天 的员工信息,这个 工龄(日)  筛选条件应该怎么写呢?

Dim Filter As String
With e.Form.Controls("最小值")
    If .Value <> "最小值" Then
        Select Case e.Form.Controls("工龄").value
            Case "工龄(年)"
                Filter = "" '筛选年的条件
            Case "工龄(月)"
                Filter = "" '筛选月的条件
            Case "工龄(日)"
                Filter = "" '筛选年的条件
        End Select
    End If
End With
With e.Form.Controls("最大值")
    If .Value <> "最大值" Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Select Case e.Form.Controls("工龄").value
            Case "工龄(年)"
                Filter = Filter & "" '筛选年的条件
            Case "工龄(月)"
                Filter = Filter & "" '筛选月的条件
            Case "工龄(日)"
                Filter = Filter & "" '筛选日的条件
        End Select
    End If
End With
DataTables("表A").LoadTop = "100 Percent"
DataTables("表A").LoadFilter = Filter
DataTables("表A").Load(False)


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200204202225.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.foxdb
[此贴子已经被作者于2020/2/4 20:30:56编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/4 20:49:00 [只看该作者]

比如:

Dim Filter As String
With e.Form.Controls("最小值")
    If .Value > "" Then
        Select Case e.Form.Controls("工龄").value
            Case "工龄(年)"
                Filter = "工龄_年 > " & .Value
            Case "工龄(月)"
                Filter =  "(工龄_月 + 工龄_年 * 12) >= " & .Value
            Case "工龄(日)"
                Filter = "DateDiff('d', 入职日期, 离职日期) >= " & .Value
        End Select
    End If
End With

 回到顶部