Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]按时段筛选问题


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

主题：[求助]按时段筛选问题
帅哥哟，离线，有人找我吗？
736642114
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：155 威望：0 精华：0 注册：2016/9/26 14:48:00 		[求助]按时段筛选问题  发帖心情 Post By：2016/10/10 16:09:00 [只看该作者]

狐表小白一个，第一次使用，很多都不会，请教一下大神，根据时间范围的 今天、本月、今年等，筛选出对应日期！
图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
kjkui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：18 积分：196 威望：0 精华：0 注册：2016/9/26 15:20:00 		  发帖心情 Post By：2016/10/10 16:47:00 [只看该作者]

在“时间范围”下拉框的ValueChanged事件中写
Dim xz As WinForm.ComboBox = e.Form.Controls("时间范围")
Dim btn1 As WinForm.DateTimePicker = Forms("窗口1").Controls("StartDate")
Dim btn2 As WinForm.DateTimePicker = Forms("窗口1").Controls("EndDate")
If xz.value = "今天"
    Dim y As Integer = Date.Today.Year
    Dim d As Date = Date.Today
    btn1.value = d
    btn2.value = d
    btn1.Enabled = False
    btn2.Enabled = False
End If
在“时间范围”下拉框的TextChanged事件中写
Dim Filter As String

With e.Form.Controls("时间范围")
    Dim xz As WinForm.ComboBox = e.Form.Controls("时间范围")
    If xz.value = "今天"
        Dim y As Integer = Date.Today.Year
        Dim d As Date = Date.Today '当前时间
        Filter = "创建时间 = '" & d & "' And 创建时间 = '" & d & "'"
        Tables("订单管理").Filter = Filter
  End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "创建时间 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "创建时间 <= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("订单管理").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如今天
Tables("表A").Filter = "日期='" & Date.Today & "'"
本月
Dim d1 As Date = new Date(Date.Today.Year,Date.Today.Month,1)
Dim d2 As Date = d1.AddMonths(1)
Tables("表A").Filter = "日期>='" & d1 & "' and 日期 < '" & d2 & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
kjkui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：18 积分：196 威望：0 精华：0 注册：2016/9/26 15:20:00 		  发帖心情 Post By：2016/10/10 16:52:00 [只看该作者]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询