主题：查询代码

以下内容为程序代码:

1 Dim Filter As String
2 With e.Form.Controls("DateTimePicker1")
3 If .Value IsNot Nothing Then
4 If Filter ＞"" Then
5 Filter = Filter & " And "
6 End If
7 Filter = Filter & "ReportTime = # " & .Value & "#"
8 End If
9 End With
10 If Filter ＞ "" Then
11 Tables("V010011_01").Filter = Filter
12 End If