以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动按月份搜索  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180996)
--  作者：15666282205
--  发布时间：2022/10/21 16:39:00
--  自动按月份搜索
老师，我用下面的代码实现了按登录日期执行不同的代码，我想变通一下，按登录月份自动显示当前月的内容，请您指导
Select Case Date.today.day
    Case 1
        Tables("当月考勤表2").SetColVisibleWidt.......
End Select
我有个想法，是否和下面类似的代码结合起来，以月份为基准，筛选当月的

\'-------------------------------筛选-------------------------------
Dim s As String = user.name
With DataTables("当月考勤表2")
    .loadfilter = "考勤员 like \'%" & s & "%\'"
    .load()
End With
--  作者：有点蓝
--  发布时间：2022/10/21 16:43:00
--  
参考：http://www.foxtable.com/webhelp/topics/2720.htm
--  作者：15666282205
--  发布时间：2022/10/22 8:48:00
--  

老师，我从帮助里复制下面的代码，提示这行代码错误，如下提示

编译错误：local variable \'dt2\' is already declared in the current block


Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天


筛选本月的订单：

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 & "#"
Tables("订单").Filter = Filter
--  作者：有点蓝
--  发布时间：2022/10/22 8:57:00
--  
dt2这个变量名称定义重复了。麻烦想解决题的请贴自己的代码，不要贴帮助的代码，没有什么意义
--  作者：15666282205
--  发布时间：2022/10/22 9:51:00
--  
明白了，老师，其他代码有这个变量了，完美解决了，谢谢！
--  作者：15666282205
--  发布时间：2022/10/22 10:30:00
--  
老师，上面的代码适用于已经加载的表，我想从后台自动加载，把代码改了，但是不运行，麻烦您指导。
\'-------------------------------筛选本月的订单--------------------------------------------------:

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt11 As New Date(y, m, 1)
Dim dt12 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter11 As String
Filter11 = "日期 >= #" & dt11 & "# And 日期 <= #" & dt12 & "#"
With DataTables("金工工时表")
.loadfilter = "日期 like \'%" & Filter11 & "%\'"
.load()
End With
--  作者：有点蓝
--  发布时间：2022/10/22 10:35:00
--  
.loadfilter = Filter11 
--  作者：15666282205
--  发布时间：2022/10/22 10:53:00
--  
老师，提示错误信息：“#”附近有语法错误
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt11 As New Date(y, m, 1)
Dim dt12 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter11 As String
Filter11 = "日期 >= #" & dt11 & "# And 日期 <= #" & dt12 & "#"
With DataTables("金工工时表")
    .loadfilter = Filter11
    .load()
End With
--  作者：有点蓝
--  发布时间：2022/10/22 11:16:00
--  
看看：http://www.foxtable.com/webhelp/topics/2343.htm
--  作者：15666282205
--  发布时间：2022/10/22 11:30:00
--  
解决了，谢谢！