
加好友 发短信
等级:贵宾
帖子:39310
积分:196782
威望:0
精华:1
注册:2015/4/25 9:23:00
|
Post By:2015/10/8 14:12:00 [显示全部帖子]
Dim y As Integer = 2011 '指定年份 Dim m As Integer = 6 '指定月份 Dim dt1 As New Date(y, m, 1) Dim dt2 As Date = dt1.AddMonths(1) Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#" Tables("订单").Filter = Filter
|
|