看看这里
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) & "#"
加好友 
发短信
Post By：2019/4/30 12:38:00 [显示全部帖子]
