Dim str As String = e.form.controls("textbox1").text
Dim d as date = new date(val(str), 1, 1)
e.form.controls("Table1").Table.filter = "计划时间 >= #" & d & "# and 计划时间 < #" & d.addyears(1) & "#"
加好友 
发短信
Post By：2018/10/22 15:13:00 [显示全部帖子]
