Foxtable(狐表)用户栏目专家坐堂 → 为何无法筛选时间范围?


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

主题:为何无法筛选时间范围?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/6 15:40:00 [显示全部帖子]

菜单那里筛选的,是当天的日期时间,是有点问题的。

 

你要自己写代码,如

 

Dim d1 As Date = "1900-01-01 " & "00:00"
Dim d2 As Date = "1900-01-01 " & "23:00"
Tables("表B").Filter = "第四列 >= #" & d1 & "# and 第四列 <= #" & d2 & "#"


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/6 17:27:00 [显示全部帖子]

Dim d1 As Date = forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("开始时间").value
Dim d2 As Date = forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("截止时间").value
DataTables("分切工piao信息").loadfilter = "分切时间 >= #" & d1 & "# and 分切时间 <= #" & d2 & "#"
DataTables("分切工piao信息").load

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/6 17:53:00 [显示全部帖子]

msgbox看一下值

 

msgbox(forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("开始时间").value)


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/8 10:11:00 [显示全部帖子]

如果还不行,做个简单的例子上来看看。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/11/10 18:23:00 [显示全部帖子]

Dim Filter As String = "1=1"
With e.Form.Controls("客户代号1")
    If .Value IsNot Nothing Then
        Filter &= " and 客户代号 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("开始时间1")
    If .Value IsNot Nothing Then
         filter &= " and 分切日期时间 >= #" & .value & "#"
    End If
End With

With e.Form.Controls("截止时间1")
    If .Value IsNot Nothing Then
         filter &= " and 分切日期时间 <= #" & .value & "#"
    End If
End With

    DataTables("分切工piao信息").loadFilter = Filter
    DataTables("分切工piao信息").load


Tables("生产报表_分切工piao信息").sort = "客户代号,分切日期时间"

 


 回到顶部