以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示语法错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91915)
--  作者：Meiling
--  发布时间：2016/10/21 18:52:00
--  提示语法错误
老师,你好,提示\'#\'附近有语法错误,不知道怎么进行修改?

代码为:
With e.Form.Controls("checkedcombobox2")
    If .Value IsNot Nothing Then
       If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        Dim d As Date = new Date(Date.Today.Year, .Value, 1)
        filter1 = filter1 & "[F4411] >= #" & d & "# and [F4411] < #" & d.AddMonths(1) & "#"
    End If
End With
--  作者：Meiling
--  发布时间：2016/10/21 22:24:00
--  
老师，您好，问题已经解决了^_^