Dim Filter As String With e.Form.Controls("StartDate") If .Value IsNot Nothing Then Filter = "日期 >= #" & .Value & "#" End If End With With e.Form.Controls("EndDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 <= #" & .Value & "#" End If End With If Filter > "" Then Tables("订单").Filter = Filter End If
加好友 
发短信
Post By：2013/5/23 9:08:00 [显示全部帖子]
