Foxtable(狐表)用户栏目专家坐堂 → 请教老师:如何按指定日期时段进行筛选


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

主题:请教老师:如何按指定日期时段进行筛选

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


加好友 发短信
等级:小狐 帖子:366 积分:3522 威望:0 精华:0 注册:2016/5/25 21:31:00
请教老师:如何按指定日期时段进行筛选  发帖心情 Post By:2017/4/17 23:53:00 [只看该作者]

做一个进仓查询,需要按指定日期段筛先,比如从4-5至4-10的进仓明细
上个例子
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/18 10:27:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2017/4/18 10:33:00 [只看该作者]

Dim Filter As String
Tables("进仓明细").Filter = ""
With e.Form.Controls("商品ID")
    If .Value IsNot Nothing Then
        Filter ="商品ID Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("名称")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "名称 Like '%" & .Value & "%'"
    End If
End With

Dim jz As WinForm.DateTimePicker = e.Form.Controls("截止日期")
Dim kc As WinForm.DateTimePicker = e.Form.Controls("开始日期")

If kc.Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "日期 > '" & kc.Value & "'"
End If

If jz.Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "日期 < '" & jz.Value & "'"
End If
MessageBox.Show(filter)
If Filter > "" Then
    Tables("进仓明细").Filter = Filter
End If

 回到顶部