Static lst As List(of Date) '定义一个静态集合变量,用于存储选择的日期
If lst Is Nothing Then
lst = New List(of Date)
End If
If ModifierKey <> Keys.Control Then '如果没有按下Ctrl键
lst.Clear() '清除以前的日期
End If
If lst.Contains(e.Sender.Value) = False Then '如果集合不包括按下的日期
lst.Add(e.Sender.Value) '则向集合添加此日期
End If
Dim filter As String = "1=2 "
For Each d As Date In lst
Dim d1 As Date = new Date(d.Year,d.Month,d.Day)
filter = filter & " or 日期 >= #" & d1 & "# and 日期 < #" & d1.AddDays(1) & "# "
Next
Tables("订单").Filter = filter
加好友 
发短信
Post By：2017/10/13 20:33:00 [显示全部帖子]
