以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于日期抽取后的动态查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134224)
--  作者：bashanren
--  发布时间：2019/4/30 11:40:00
--  [求助]关于日期抽取后的动态查询
各位老师上午好！！
下面是窗口动态查询的一段代码，其控件“cmbCZNF”是通过代码将表格的“日期列”中的“年份”抽取出来的值，比如“2019”，现在就是根据从“日期”中抽取的这个值参与动态查询，不知该如何写代码了，请老师指导，谢谢！！

With e.Form.Controls("cmbCZNF")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 =                                     （就是动太查询“日期”中的“年份”等于窗口控件“cmbCZNF”的值）
    End If
End With

If Filter > "" Then
    Tables("操作查询_witable").Filter = Filter
--  作者：有点甜
--  发布时间：2019/4/30 12:38:00
--  

看看这里

 

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

 

Dim d As Date = new date(e.form.controls("cmbCZNF").text, 1, 1)

Filter = Filter & "日期>=#" & d & "# and 日期 < #" & d.addYears(1) & "#"