以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请纠正一下语法错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121301)

--  作者:yetle
--  发布时间:2018/7/3 15:40:00
--  请纠正一下语法错误
 With Tables("日产量分析_table2")
     If .Current Is Nothing Then

         tB.Filter = "False"
     Else

        tB.Filter = "[年] = " & year(Date.Today) & " and [月] = \'" & Month(Date.Today) "\'"

     End If
 End With

--  作者:有点蓝
--  发布时间:2018/7/3 20:08:00
--  
tB.Filter = "[年] = " & Date.Today.year & " and [月] = " & Date.Today.Month