以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]时段筛选求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129702)

--  作者：湛江智 --  发布时间：2019/1/4 9:42:00 --  [求助]时段筛选求助 增加只筛选当前用户本月，下面代码怎么修改？求助 Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" DataTables("工作日志").LoadFilter = Filter & "创建者 = \'" & _UserName & "\'" DataTables("工作日志").Load() [此贴子已经被作者于2019/1/4 9:42:30编辑过]

--  作者：有点甜 --  发布时间：2019/1/4 9:51:00 --   DataTables("工作日志").LoadFilter = Filter & " and 创建者 = \'" & _UserName & "\'"